Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then List2.AddItem List1.List(i)
Next
End Sub
dim i
for i=0 to list1.listcount-1
if list1.select(i)=true then list2.additem list1.list(i)
next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024