有没有谁能把
Private Sub CmdRight_Click()
　Dim X As Integer
　While LstLeft.SelCount > 0
　　For X = 0 to LstLeft.LstCount - 1
　　　If LstLeft.Selected(X) = True Then
　　　　LstRight.AddItem LstLeft.List(X)
　　　　LstLeft.RemoveItem X
　　　　Exit For
　　　End If
　　Next X
　Wend
End Sub

详细分析一下啊   Exit for 和end if 先后次序

　Dim X As Integer
　While LstLeft.SelCount > 0'当LstLeft.SelCount > 0时就循环,否则什么也不做
　　For X = 0 to LstLeft.LstCount - 1'从0开始到LstLeft.LstCount - 1结束,
　　　If LstLeft.Selected(X) = True Then'如果被选中则执行下一行,否则X=X+1,直到X=LstLeft.LstCount - 1
　　　　LstRight.AddItem LstLeft.List(X)'右边的LISTVIEW增加一项,值为左边的LISTVIEW被选中的项
　　　　LstLeft.RemoveItem X'左边选中的项移除
　　　　Exit For'退出FOR循环
　　　End If
　　Next X
　Wend

当不满足LstLeft.Selected(X) = True时,不执行Exit For
当满足LstLeft.Selected(X) = True时,执行Exit For,则跳过end if 跳出for循环.
仅供参考

学习了