Private Sub Command1_Click() For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then Me.Caption = Me.Caption & List1.List(i) End If Next i End SubPrivate Sub Form_Load() 'List1.MultiSelect = 1 For i = 0 To 100 List1.AddItem i Next i Me.Caption = "" End Sub
Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
Me.Caption = Me.Caption & List1.List(i)
End If
Next i
End SubPrivate Sub Form_Load()
'List1.MultiSelect = 1
For i = 0 To 100
List1.AddItem i
Next i
Me.Caption = ""
End Sub