Te pongo un ejemplo:
Cita: Dim selItems As ListView.SelectedListViewItemCollection = _
Me.ListView1.SelectedItems
Dim stuID As String
Dim subItemsCnt As Integer
stuID = ""
Dim item As ListViewItem
Dim i As Integer
i = 0
For Each item In selItems
For subItemsCnt = 0 To item.SubItems.Count - 1
' Getting each and every Item into an array
retRow(subItemsCnt) = item.SubItems(subItemsCnt).Text
Next subItemsCnt
Next
Espero que te de una idea...
Salu2