在窗体上同时显示一只时钟和一只10分钟的倒计时计时时钟。界面如下：

。
代码如下：
Private Sub Form_Load()
Label1.Caption = "现在时刻"
Label3.Caption = "您还剩下的时间"
Label5.Caption = "对不起，时间到"
Label5.Visible = False
Label2.Caption = Time
Minute = totaltime \ 60
Second = totaltime Mod 60
Label4 = Minute & ":" & Second
reminder = totaltime
Timer1.Enabled = True
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Timer1_Timer()
Label2.Caption = Time
reminder = reminder - 1
Minute = reminder \ 60
Second = reminder Mod 60
If Len(Second) = 1 Then
Label4 = Minute & ":" & "0" & Second
Else
Label4 = Minute & ":" & Second
End If
If reminder = 0 Then
Label3.Visible = False
Label4.Visible = False
Label5.Visible = True
Timer1.Enabled = False
End If
End Sub
但我却运行不了，不知那里出错。请高手们指点一下！！

什么都没定义怎么能运行？Minute、reminder都是不说是什么。。。你自己写一个不要看这个，，，这个麻烦。。。

我是新手，你能不能帮帮我？？

Dim Totaltime, Reminder, Minute, Second '需要声明参数
Private Sub Form_Load()
Label1.Caption = "现在时刻"
Label3.Caption = "您还剩下的时间"
Label5.Caption = "对不起，时间到"
Label5.Visible = False
Label2.Caption = Time
Totaltime = 10 * 60 '关键语句你没设置
Minute = Totaltime \ 60
Second = Totaltime Mod 60
Label4 = Minute & ":" & Second
Reminder = Totaltime
Timer1.Enabled = true
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Time
Reminder = Reminder - 1
Minute = Reminder \ 60
Second = Reminder Mod 60
If Len(Second) = 1 Then
Label4 = Minute & ":" & "0" & Second
Else
Label4 = Minute & ":" & Second
End If
If Reminder = 0 Then
Label3.Visible = False
Label4.Visible = False
Label5.Visible = true
Timer1.Enabled = False
End If
End Sub

谢谢了