Private Sub Command1_Click()
List2.Clear
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
List1.Clear
End Sub
for i=0 to list1.listcout-1
List2.AddItem = List1.list(list1.listindex)
next i
Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
List2.AddItem List1.text
Next
List1.ListIndex = 0
End Sub
Private Sub Form_Load()
List1.AddItem "啊"
List1.AddItem "吧"
List1.AddItem "才"
List1.ListIndex = 0
End Sub
for n = 0 to list1.listindex
list1.listindex=n
list2.additem(list1.listindex)
next