速度， 来做一道简单的vb计时器题

设计一个计时器，要求：窗体上有一个用于显示计时的有边框的标签，显示字体为24磅。当单击“开始”按钮时，计时器开始计时，每隔1秒钟，秒数增加1；满60秒，分钟增加1，秒数清零；满60分钟，小时加1，分钟清零。单击“停止”按钮，计时停止。单击“清零”按钮。清除标签中显示的数值。如图所示:
图片链接：http://sz6.photo.store.qq.com/http_imgload.cgi?/rurl4_b=73e5965f5bad4030a467bca57401e405dec954bae365f67c1b44a8b405d3c7250f308538de032c759accba16e9c6839ae5fd194b0170d348625982e143ff821ea11e2709db6f19aa24b5ef674c91173fb605ddf2

如果只设计 开始按钮的 时间代码也行，关键是速度，，
正在等待中。。。。

'comand1 开始 comand2 停止 comand3 重置
'添加一个timer1 添加一个text1 然后添加如下代表到一个窗体中即可 当然你也可以根据需要成毫秒级的计时器

Option Explicit
Public h As Long
Public m As Long
Public s As Long

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
Text1.Text = ""
h = 0
m = 0
s = 0

End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
s = s + 1
If s >= 60 Then
s = 0
m = m + 1
If m >= 60 Then
h = h + 1
End If
End If
Text1.Text = h & ":" & m & ":" & s
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False