Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Label1.Text = TimeOfDay
If Label1.Text = "12:00:00" Then
Timer1.Stop()
MsgBox("OK")
Timer1.Start()
ElseIf Label1.Text = "13:00:00" Then
Timer1.Stop()
MsgBox("OK")
Timer1.Start()
ElseIf Label1.Text = "14:00:00" Then
Timer1.Stop()
MsgBox("OK")
Timer1.Start()
ElseIf Label1.Text = "15:00:00" Then
Timer1.Stop()
MsgBox("OK")
Timer1.Start()
End If
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Timer1.start()
End Sub