Ho trovato la soluzione:

Dim Id_Resoconto As Integer = lvwResoconto.SelectedItems.Item(0).SubItems(1).Tex t