Code:
Private Sub Form_Load()
     With List1
         .AddItem "test1"
         .AddItem "test2"
         .AddItem "test3"
         .AddItem "test4"
         .AddItem "test5"
     End With
End Sub

Private Sub Command1_Click()
     Dim i As Integer
     For i = 0 To List1.ListCount 'tried i = 1 to ...
          MsgBox List1.List(i)
          Exit Sub
     Next i
End Sub
It only returns the first string in the Listbox and not ALL the strings. I cannot figure this out.

Any suggestions?