怎么在vb程序中写报时的代码 每逢整点和30分钟

Private Sub Timer1_Timer()
Dim GetTime As Date
Dim GetHour As Integer
If Minute(Time) = 30 Then '当分钟为30分时
If Second(Time) = 0 Then '当秒钟为0时，即xx：30：00时
Beep '报时代码，这里用beep代替：

End If
End If
If Minute(Time) = 0 Then '当分钟为0时
If Second(Time) = 0 Then '当秒钟为0时，即xx：00：00时
GetTime = Time '得到系统时间
GetHour = Hour(Time) '得到点种
Beep '报时代码，这里用beep代替：

End If
End If
End Sub
原工程代码：http://www.mjbox.com/r/ww/wwccwwccwc/报时.rar
请不要工具下载，复制连接到地址栏点回车！

请问半点报时的程序，是要怎么复制到地址栏的，是哪个文件，请详细指点一下

建个Timer1控件，Timer1.Enabled=True，Timer1.Interval=1000

然后：
Private Sub Timer1_Timer()
If Minute(Now) Mod 30 = 0 And Second(Now) = 0 Then Print Now '也可用其他方式表示报时
End Sub

建个Timer1控件
Timer1.Enabled