Dim eingelogged As Boolean = False
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim einloggen As DateTime = CDate("15:51")
        Dim ausloggen As DateTime = CDate("15:52")
        Dim ctime As DateTime = Now
        Dim time As DateTime = New DateTime(1, 1, 1, ctime.Hour, ctime.Minute, _
          ctime.Second)
        If eingelogged Then
            If ausloggen <= time Then
                eingelogged = False
                Debug.WriteLine("Ausgeloggt um " + time.ToLongTimeString())
            End If
        Else
            If einloggen <= time AndAlso ausloggen >= time Then
                eingelogged = True
                Debug.WriteLine("Eingegeloggt um " + time.ToLongTimeString())
            End If
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist