Private Sub Command1_Click()
  Dim nIndex As Integer
 
  nIndex = 0
  With List1
    Do While nIndex < .ListCount
      Text1.Text = .List(nIndex)
      MsgBox "Test"
      nIndex = nIndex + 1
    Loop
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de