代码如下：
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
我只想又击左边列表框时左边消失，加到右边去
可代码有误，请帮指出

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

Private Sub Lst1_DblClick()
Dim i As Integer
n = Lst1.ListCount
While i < n
If Lst1.Selected(i) Then
Lst2.AddItem Lst1.List(i)
Lst1.RemoveItem i
n = n - 1
Else
i = i + 1
End If
Wend
End Sub

我已经调试过了
你看看是不是你要的那种效果

还有一种改法：

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

Private Sub Lst1_DblClick()
Dim i As Integer
n = Lst1.ListCount
For i = 0 To Lst1.ListCount - 1
' Form1.Caption = Form1.Caption + Str(i) + Space(5)
If Lst1.Selected(i) Then
Lst2.AddItem Lst1.List(i)
Lst1.RemoveItem Lst1.ListIndex
End If

Exit For（只需要在此处插入Exit For，跳出for循环）

Next i

End Sub

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

你的程序缺一条语句，加上之后就会好

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
Exit For
End If
Next i

End Sub