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
先end if 行不行

请问是不是先end if 后 exit for
那么连next x 也不执行了 直接退出for循环啊

谢谢咯 呵呵

谢谢啦 我是初学者 可能问的问题都比较弱智些
不过还是请多多关照哈！