handeling als ingevoerd tijdstip bereikt is

Public Class FrmMain  
Private Sub FrmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load  
     Timer1.Enabled = True  
     If (TimeOfDay = TxtTijd1.Text) Then  
         MsgBox("tijd")  
     End If  
  
End Sub  
  
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
     Label1.Text = TimeOfDay  
     Label2.Text = "Date: " + DateString  
      
End Sub  
End Class

Public Class FrmMain  
Private Sub FrmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load  
     Timer1.Enabled = True  
     If (TimeOfDay = TxtTijd1.Text) Then  
         MsgBox("tijd")  
     End If  
 
End Sub  
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
     Label1.Text = TimeOfDay  
     Label2.Text = "Date: " + DateString  
 
End Sub  
End Class

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim dt As Date

        Label1.Text = CStr(TimeOfDay)
        Label2.Text = "Date: " + DateString

        If DateTime.TryParse(TxtTijd1.Text, dt) Then
            If TimeOfDay = CDate(TxtTijd1.Text) Then MessageBox.Show("tijd")
        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        With Timer1
            .Interval = 1000
            .Enabled = True
        End With
    End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
 
        Dim dt As Date
 
        Label1.Text = CStr(TimeOfDay)
        Label2.Text = "Date: " + DateString
 
        If DateTime.TryParse(TxtTijd1.Text, dt) Then
            If TimeOfDay = CDate(TxtTijd1.Text) Then MessageBox.Show("tijd")
        End If
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        With Timer1
            .Interval = 1000
            .Enabled = True
        End With
    End Sub