Private WithEvents tmr As New Timer         'Den Timer für die Zeit abfrage
    Dim messageTime As Date = "21:00"           'Wann soll die Nachricht 
    ' 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 Now.TimeOfDay >= Now.TimeOfDay Then                               _
           'Und die zyklische Abfrage
            MessageBox.Show(String.Format("Es ist {0}", Now.TimeOfDay))
            tmr.Stop()                                                          _
              'Der Stop dient nur dazu, dass nicht nach 21:00 alle 2 Sekunden 
            ' eine Nachricht kommt!
        End If
    End Sub