Starling |
---|
Есть еще предложения? |
Private Sub knopka_Click()
Dim Item
For Each Item In list.ItemsSelected
Me.txt = Me.txt & ";" & list.Column(0, Item)
Next Item
Me.txt = Mid(Me.txt, 2)
End Sub
Уже было всё сказано выше, надо было просто подогнать под себя и вместо Debug.Print вывести значения в текстовое поле.