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

Question

有一个listbox控件，需要获取每一个item的值使用，试了几个，都不行，请高手指点，谢谢！！使用listbox.itemdata不行，listbox.text为空字符串

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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