Private Sub Command2_Click()
Dim i
i = 0
Do While i < List2.ListCount
If List2.Selected(i) = True Then
List3.Additem list2.list(i)
List2.RemoveItem i
Else
i = i + 1
End If
Loop
End Sub
List3.AddItem List1.List(i)
括号里的i和定义的是同一个。
放在if语句前面。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024