ник: час
Начнём вместе..
Вот что получается:
Private Sub Кнопка2_Click()
'Процедура поиска выделения строк списка
Dim IntCnt As Long
For IntCnt = 0 To Me!LST1.ListCount
If Me!LST1.Selected(IntCnt) = TrueThen
'делаем то, за чем пришли ..............
End If
Next
End Sub