如何在list1中的多项数据通过双击是把它在list2中显示

[ChinaKable]

请问怎样将VB中的list1中的很多字段数据中双击是把它显示在list2中的列表框中？（如何在list1中的多项数据通过双击是把它在list2中显示，当双击list2是可以把此字删掉？）请帮帮我解答！

[踏平扶桑]

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 10
List1.AddItem i
Next
End Sub

Private Sub List1_Click()
List2.AddItem List1.List(List1.ListIndex)
End Sub

Private Sub List2_Click()
List2.RemoveItem List2.ListIndex
End Sub

不知道是不是这样？

[ChinaKable]

谢谢楼上的，不知还有没别的方法？