代码如下：
Private Sub Form_Load()
Lst1.AddItem "北京"
Lst1.AddItem "广东省"
Lst1.AddItem "河南省"
Lst1.AddItem "辽宁省"
Lst1.AddItem "陕西省"
End Sub

Private Sub Lst1_DblClick()
Dim i As Integer
For i = 0 To Lst1.ListCount - 1
If Lst1.Selected(i) Then
Lst2.AddItem Lst1.List(i)
Lst1.RemoveItem Lst1.ListIndex
End If
Next i

End Sub
我只想又击左边列表框时左边消失，加到右边去
可代码有误，请帮指出

谢谢！另外我想知道我的代码中关键的错误在哪里，请指出！