倒计时代码 如10分钟后或者 5分钟后 发出BEEP声音

求一个倒计时代码 如10分钟后或者 5分钟后 发出BEEP声音
要代码 

在线等


谢了

[解决办法]
二个文本框T1，T2,T1用来设定时间的，T2用来显示时间。二个按钮C1,C2，C1用来启动计时，C2停止并可以重新设置时间，还要画一个计时器用于计时用
Private Sub C1_Click()
If T1.Text = "" Then
MsgBox "请重新输入", vbCritical
Else
T1.Enabled = False
Tr1.Enabled = True
T2.Text = 0
End If
End Sub

Private Sub C2_Click()
T1.Enabled = True
Tr1.Enabled = False
T2.Text = 0
End Sub

Private Sub Tr1_Timer()
If T2.Text = T1.Text Then
Beep
Tr1.Enabled = False
MsgBox "时间到", vbOKOnly
T2.Text = 0
Else: T2.Text = T2.Text + 1
End If
End Sub

[解决办法]

VB code

Public JSjs As Integer '计时时间Public date1 As String  '起始时间Private Sub Command6_Click()Timer1.Enabled = Truedate1 = ""End SubPrivate Sub Form_Load()Timer1.Enabled = FalseJSjs = 10    '计时10分钟End SubPrivate Sub Timer1_Timer()If date1 = "" Thendate1 = Format(Now, "yyyy-MM-dd hh:mm:ss")End IfIf DateDiff("n", date1, Now) >= JSjs ThenMsgBox "时间到"Timer1.Enabled = FalseEnd IfEnd Sub