Index в listview - VB

Формулировка задачи:

Здравствуйте!! помогите, пжлста. у меня тут такое дело: есть массив с данными (3 столбца и переменное количество строк) эти данные выводятся в listview (пользователю виден только первый столбец) пользователь выделяет несколько записей... и мне надо потом работать с индексами этих записей ( что-то типа этого надо - переменная=my_array(индекс выделенной записи)... ) а я не могу у listview найти нужного свойства

Решение задачи: «Index в listview»

textual
                            Листинг программы 
                        

                            Private Sub Комманда1_Click()
Dim re
Dim J
Dim K
Dim L
 Dim lit As ListItem
 For J = 1 To REP.ListItems.Count
If REP.ListItems(J).Selected = True Then
L = L + 1
    Set lit = REP.ListItems(J)
MsgBox "Индекс  " & L & "  выделенной строки " & J
MsgBox "первый элемент  строки  " & J & "  равен  " & lit.Text
For K = 1 To lit.ListSubItems.Count
    MsgBox K + 1 & " элемент  строки №  " & J & "  равен  " & lit.SubItems(K)
Next K
End If
Next J
End Sub
                        