Programação em Visual Basic - "Alarme"

Olá,

Este programa usa a ferramenta Timer para comparar a hora do PC com a hora introduzida por nós.
Quando estas são iguais dá-nos um alerta.

Aqui está a programação:

Public Class Form1

    

Dim alarme As Date

    

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

        Label1.Text = TimeOfDay

        If alarme = Label1.Text Then

            MessageBox.Show("Alarme da hora", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

            Beep()

        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        alarme = MaskedTextBox1.Text

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        End

    End Sub

End Class