Question

VB列表框 两个列表框 互相添加 和全部添加 如图

就是可以一个一个添加，还可以全部添加的，添加之后在原来的列表框里就不显示了。谢啦。

Answer 1

从 List1 添加一个到 List2：
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex

从 List1 添加全部到 List2：
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
List1.Clear

反向添加原理一样，这里就不赘述了