Private Sub Command1_Click()
  Dim i As Integer
 
  With List1
    For i = 0 To .ListCount - 1
      .ListIndex = i
      ' Aktion ausführen
    Next i
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de