Private mRandom As New Random
    Private mTimeToWaitFor As DateTime
 
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)
        mTimeToWaitFor = New DateTime(Now.Year, Now.Month, Now.Day, _
          mRandom.Next(0, 24), mRandom.Next(0, 60), mRandom.Next(0, 60))
    End Sub
 
    Private Function CompareTimes(ByVal time1 As DateTime, ByVal time2 As _
      DateTime) As Boolean
        Return ((time1.Hour = time2.Hour) AndAlso (time1.Minute = time2.Minute) _
        AndAlso (time1.Second = time2.Second))
    End Function
 
    Private Sub tmrMain_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles tmrMain.Tick
        If CompareTimes(mTimeToWaitFor, Now) Then
            MsgBox("Zeit ist erreicht!")
            mTimeToWaitFor = New DateTime(Now.Year, Now.Month, Now.Day, _
              mRandom.Next(0, 24), mRandom.Next(0, 60), mRandom.Next(0, 60))
        End If
 
        Label1.Text = String.Format("Aktuelle Zeit: {0}, Zeit auf die gewartet" & _
          "wird: {1}", Now.ToString("HH:mm:ss"), mTimeToWaitFor.ToString( _
          "HH:mm:ss"))
 
    End Sub