Question

vb中listbox的style属性设为1-checkbox以后，怎么可以将所选中的移到第二个列表框中，同时删除以前的！

我有如下代码：
Private Sub Command2_Click()
Dim i
i = 0
Do While i < List2.ListCount
If List2.Selected(i) = True Then
List2.RemoveItem i
Else
i = i + 1
End If
Loop
End Sub

知道这个可以删除选中的，但是不知道怎么让选中的同时转移到第二个列表框list3中！

Answer 1

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

Answer 2

List3.AddItem List1.List(i)
括号里的i和定义的是同一个。
放在if语句前面。