Private Sub Кнопка2_Click()

Dim spisoc As ListBox, i As Variant

Set spisoc = Me.Список0

If spisoc.ItemsSelected.Count > 0 Then

For Each i In spisoc.ItemsSelected

Debug.Print i

Debug.Print spisoc.Column(0, i), spisoc.Column(1, i), spisoc.Column(2, i), spisoc.Column(3, i)

Next i

Else

Debug.Print "Список пустой"

End If

End Sub

 

В окне отладки появятся следующие значения:

 

 

 

Переменная выводит на печать в окно отладки номера выбранных записей.

Пример:

Рассмотрим работу метода ItemData :

Private Sub Кнопка2_Click()

Dim spisoc As ListBox, i As Variant

Set spisoc = Me.Список0