0 HOW TO PREPARE ALARM IN VB.NET

CODING

Public Class Form1
    Dim blnalarm As Boolean = False
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = TimeOfDay

        If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then
            Dim alarmtime = New DateTime(Today.Year, Today.Month, Today.Day, CInt(TextBox1.Text), CInt(TextBox2.Text), CInt(TextBox3.Text))
            If Now > alarmtime And blnalarm Then
                Beep()

            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then
            blnalarm = True
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = False Then
            blnalarm = False
        End If
    End Sub
End Class