请教：如何获取listbox控件中的所有值

[derbywgz]

有一个listbox控件，需要获取每一个item的值使用，试了几个，都不行，请高手指点，谢谢！！

使用listbox.itemdata不行，listbox.text为空字符串

[SYSSZ]

Private Sub Form_Load()
For i = 0 To 20
List1.AddItem i + i * 2
Next
End Sub

Private Sub List1_Click()
For i = 0 To 20
MsgBox List1.List(i)
Next
End Sub

[捧剑者]

For I=0 To List1.ListCount-1
debug.print List1.List(i)
Next I

[Tiger_Zhao]

dim i as long
for i=0 to list1.listcount-1
    debug.print list1.list(i)
next

[倒大霉的上帝]

用lst.List(i) i从0开始

[goosen]

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

Private Sub Form_Load()
 For i = 0 To 5
  List1.AddItem (i)
 Next i
End Sub

[derbywgz]

多谢各位