Dim ss As Integer
Dim hh As Integer
Dim mm As Integer

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

Private Sub Form_Load()
Text1.Text = "00:00:00"
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim test As Date
ss = ss + 1
If ss = 60 Then
mm = mm + 1
ss = 0
If mm = 60 Then
hh = hh + 1
mm = 0
End If
End If
Text1.Text = CStr(IIf(hh >= 10, hh, "0" & hh)) & ":" & CStr(IIf(mm >= 10, mm, "0" & mm)) & ":" & CStr(IIf(ss >= 10, ss, "0" & ss))
Text1.Refresh

End Sub