vb 关于列表框的项目双击添加删除的问题

Question

有两个列表框双击每个中的项目 就会添加到另一个中去
代码如下
Private Sub Command1_Click()
Unload Me
End SubPrivate Sub Form_Load()
List1.AddItem "A"
List1.AddItem "B"
List1.AddItem "C"
List1.AddItem "D"
List1.AddItem "E"
List1.AddItem "F"
List1.AddItem "G"
List1.AddItem "H"
List2.AddItem "A"
List2.AddItem "B"
List2.AddItem "C"
List2.AddItem "D"
List2.AddItem "E"
List2.AddItem "F"
List2.AddItem "G"
List2.AddItem "H"
Command1.Caption = "Exit"
End SubPrivate Sub List1_DblClick()
List2.AddItem List1.Text
List1.RemoveItem ListIndex
Label1.Caption = List2.ListIndex
End SubPrivate Sub List2_DblClick()
List1.AddItem List2.Text
List2.RemoveItem ListIndex
Label1.Caption = List2.ListCount
End Sub
但是总是不行，任意一个列表框中的项目 无论县双击哪个 他都是从第一个项目 就是那个Index 0开始消失...
高手帮帮忙啊
小弟在此谢过了

Answer 1

Private Sub List1_DblClick()
On Error GoTo clearerror'
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex'List1
Label1.Caption = List2.ListIndex
clearerror:
  Exit Sub
End SubPrivate Sub List2_DblClick()
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex'List2
Label1.Caption = List2.ListCount
End Sub