两个列表框，右面一个是复选框形式的！要求点击添加，左面被选中的项添加到右面，单击删除右面被选中的若干项（打钩的）添加到左面！但是我每次点删除都只有一项被添加到左面，就是变蓝那项，其他打钩的没有移动过去！请问是什么地方错了!谢谢！
代码A
Private Sub Command1_Click()
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End Sub
Private Sub Command2_Click()
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
End Sub
不行啊！！右面三个不是一起过去的！是一个一个过去的！！
代码不用那么复杂吧！
写好的程序来了,我自己已经验证过了,程序不会出错,只要你选择好要添加或删除的行后,单击按钮就会OK了!Private Sub Command1_Click()If List1.ListCount > 0 And List1.Text"" Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Command2_Click()If List2.ListCount > 0 And List2.Text"" ThenList1.AddItem List2.TextList...
