listbox控件问题？？

Question

on error resume nextdim i as integerwith list1
    for i=0 to .listcount-1
        .listindex=i
        if .selected(i)=true then
            list2.additem .text
            .RemoveItem i
        endif 
    next
end with

Answer 1

For i = (List1.ListCount - 1) To 0 Step -1
  If List1.Selected(i) Then
    List2.AddItem List1.List(i)
    List1.RemoveItem i
  End If
Next

Answer 2

songzx66(老虎)的可以，enmity(真我的风采)出错！
yeya(鸭鸭)　：list.find 是什么呀，没有见过？

Answer 3

on error resume next啊！

Answer 4

从最后选中的删起就可以了，如果还要按顺序显示，可以自己排序
Dim i As Integer
With List1
    For i = .ListCount - 1 To 0 Step -1
        If .Selected(i) = True Then
            List2.AddItem .List(i)
            .RemoveItem i
        End If
    Next
End With