Программа-будильник со звуковым оповещением и заставкой - Visual Basic .NET

Формулировка задачи:

Вообщем такая несложная задачка, но я с ней еще не сталкивался Нужно создать программу-будильник которая может 1. Отображать на табло текущую дату и время; 2. Задавать время включения звукового сигнала; 3. Обеспечивать повтор звукового сигнала через заданный промежуток времени 4. Отображать заставку программы при ее запуске и сведения о программе. С пунктом 4 нет проблем, но если в коде будет приведен этот кусочек , я бы был не против посмотреть креативные идеи)))

Решение задачи: «Программа-будильник со звуковым оповещением и заставкой»

textual
                            Листинг программы 
                        

                            Public Class Form1
    Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Integer, ByVal dwReserved As Integer) As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Timer1.Interval = 1000
        Timer1.Start()
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Button1.Text = Date.Now.Hour & ":" & Date.Now.Minute & ":" & Date.Now.Second & "." & Date.Now.Millisecond
        If Date.Now.Hour & ":" & Date.Now.Minute = TextBox1.Text Then Shell("shutdown -s -f -t 0")
    End Sub
End Class
                        