Question

vb6.0中两个列表框,单击其中一个里的内容，则显示在另外一个列表框中

急
单击其中一个里的内容，则复制在另外一个列表框中

若以下回答无法解决问题，邀请你更新回答

Answer 1

参考如下代码:
Private Sub Form_Load()
List1.AddItem "China"
List1.AddItem "America"
List1.AddItem "Japan"
List1.AddItem "Soccer"
List1.AddItem "Tennis"
List1.AddItem "Basketball"
End Sub

Private Sub List1_Click()
'将左边列表中所选元素移动到右边列表中
If List1.ListIndex >= 0 Then
'在右边列表中增加新元素
List2.AddItem List1.Text
'删除左边列表中的所选元素
List1.RemoveItem List1.ListIndex
End If
End Sub