Private Sub Command1_Click()
For i = 1 To 10
List1.AddItem "ABC" & i
Next i
End Sub
Private Sub Command2_Click()
For i = List1.ListCount - 1 To 0 Step -1
List1.ListIndex = i
List2.AddItem List1.Text
List1.RemoveItem (i)
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024