Private Sub Timer1_Timer()
  Dim i As Integer
  Dim nIndex As Integer
 
  nIndex = -1
  For i = 0 To List1.ListCount - 1
    If Time$ = List1.List(i) Then
      nIndex = i: Exit For
    End If
  Next i
 
  If nIndex > - 1 Then
    MsgBox "Zeit: " & Time$
    If nIndex = List1.ListCount - 1 Then
      MsgBox "Fertig!"
      End
    End If
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de