怎样获得ListBox控件的数据

[oldmanzhao]

求教

[AnnaBear]

faysky2() ^_*

[faysky2]

Private Sub Command1_Click()
Dim i As Long
For i = 0 To List1.ListCount - 1
Debug.Print List1.List(i)
Next
End Sub

Private Sub Form_Load()
Dim i As Long
For i = 1 To 10
List1.AddItem i
Next
End Sub

[bbhere]

Dim fld() as String
For i = 0 To List1.ListCount - 1
fld(i)=List1.List(i)
Next