Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim a As Integer
        ' Damit kein Vergleich mit der Systemzeit stattfindet bei leerer Liste
        If lstZeituhr.Items.Count = 0 Then
            Exit Sub
        End If
 
        ' Die Schleife für den Schaltvorgang. Eben nur einmal in einer Zeit. 
        ' Stellt sich auf Null sobald der Wert ungültig wird
        For a = 0 To lstZeituhr.Items.Count - 1
            If lstZeituhr.Items.Item(a) = Date.Now.ToString And count(a) = 0 _
              Then
                count(a) += 1
                MessageBox.Show("Jetzt")
            End If
            If lstZeituhr.Items.Item(a) <> Date.Now.ToString And count(a) = 1 Then
                count(a) = 0
            End If
        Next