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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024