怎样用vb编写一个闹钟？

'在界面添加一个时间控件，把代码复制进去，运行就可以达到目的，在播放铃声处添加你想播放铃声的语句即可Dim Ttime_S As IntegerPublic Ttime_A As IntegerPrivate Sub Form_Load()Ttime_A = 60 * 60 '初始为1个小时End SubPrivate Sub Timer1_Timer()If Me.Timer1.Enabled = True Then Ttime_S = Ttime_S + 1If Ttime_S = Ttime_A Then '播放铃声 If Ttime_A = 60 * 60 Then '一小时 Ttime_A = 15 * 60 ElseIf Ttime_A = 15 * 60 Then '15分钟 Ttime_A = 60 * 60 End IfTtime_S = 0End IfEnd Sub