Private Sub Command1_Click()
List2.AddItem List1.List(List1.ListIndex)
If List1.ListIndex <> -1 Then
List1.RemoveItem List1.ListIndex
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 5
List1.AddItem i
Next
End Sub
List2.AddItem List1.List(List1.ListIndex)
If List1.ListIndex <> -1 Then
List1.RemoveItem List1.ListIndex
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 5
List1.AddItem i
Next
End Sub