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

运行时出现编译错误 子程序或函数未定义请问错在哪儿了呢？