x = List1.ListCount
For i = 0 To x
List2.AddItem List1.List(i)
Next
思路是一样的 难道你不会改？
Private Sub Command1_Click()
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then List1.RemoveItem i
Next
End Sub
Private Sub Form_Load()
For i = 1 To 10
List1.AddItem i
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024