Public Class Notifications
Dim timeupdate As String
Dim messagetime As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    x = True
    Button2.Enabled = True
    If txtMessage.Text = "" Then
        MsgBox("please enter a message and title")
        Exit Sub
    End If
    If txtTitle.Text = "" Then
        MsgBox("please enter a message and title")
        Exit Sub
    End If
    Dim Time As Boolean = False
    Timer1.Start()
    Timer2.Start()
    Button1.Enabled = False



End Sub



Private Sub timerChecking_Tick(ByVal sender As System.Object, e As EventArgs) Handles timerChecking.Tick
    If x = True Then
    End If

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    CurrentTime = TimeOfDay.ToString("hh:mm:ss tt")
    Label4.Text = CurrentTime
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    messagetime = MaskedTextBox1.Text + " " + ComboBox1.Text
    If CurrentTime = messagetime Then
        Timer2.Stop()
        NotifyNewFile.ShowBalloonTip(10000, txtTitle.Text, txtMessage.Text, ToolTipIcon.Info)
        Button1.Enabled = True
        Button2.Enabled = False
    End If

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Timer2.Stop()
    Timer1.Stop()
End Sub

Private Sub Notifications_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Button2.Enabled = False
End Sub

Public CurrentTime As Object
    Public X As Boolean = False