Public Class Form1
    Private WithEvents tmr As New Timer         'Den Timer für die Zeit abfrage
    Dim stunden As Integer = 23                 'Wann soll die Nachricht 
    Dim minuten As Integer = 55                 ' angezeigt werden?
 
    Private Sub frmMessage_Load(ByVal sender As Object, ByVal e As  _
      System.EventArgs) Handles Me.Load
        tmr.Interval = 2000                     'Der Interval ist eher größer 
        ' zu wählen
        tmr.Start()
    End Sub
 
    Private Sub tmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles tmr.Tick
        If stunden >= Now.Hour Then             'Und die zyklische Abfrage
            If minuten >= Now.Minute Then
                mySub()
                tmr.Stop() _
                  'Der Stop dient nur dazu, dass nicht nach 21:00 alle 2 
                  ' Sekunden 
                ' eine Nachricht kommt!
            End If
        End If
    End Sub
 
    Private Sub MySub
        ' Mach irgendwas, wenn Zeit erreicht ist
        MessageBox.Show(String.Format("Es ist {0}", Now.TimeOfDay))
    End Sub
End Class