高分求一个计时器代码，谢谢大神。

Private sss As Long
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 10

Command2.Enabled = False
End Sub

Private Sub Timer1_Timer()
sss = sss + 1
hh = Format(Int(sss / 360000), "00")
mm = Format(Int((sss - 360000 * hh) / 6000), "00")
ss = sss Mod 6000
Label1.Caption = hh & ":" & mm & ":" & Format(sss / 100, "00.00")
End Sub