列表框list编程出错
Private Sub cmd1_Click()Dim i%
While lst1.SelCount > 0
For i = 0 To lst1.ListCount - 1
If lst1.Selected(i) = True Then
lst2.AddItem lst1.Selected(i)
lst1.RemoveItem i
End If
netx i
End Sub
运行时出现编译错误 子程序或函数未定义请问错在哪儿了呢？
Dim i%
While lst1.SelCount > 0
For i = 0 To lst1.ListCount - 1
If lst1.Selected(i) = True Then
lst2.AddItem lst1.Selected(i)
lst1.RemoveItem i
End If
netx i
End Sub
运行时出现编译错误 子程序或函数未定义请问错在哪儿了呢？
