Option Explicit
Dim lngSec As Long
 
Private Sub Command1_Click()
  Timer1.Enabled = True
End Sub
 
Private Sub Form_Load()
  lngSec = 0
End Sub
 
Private Sub Timer1_Timer()
  Dim lngHour As Long
  Dim lngMin As Long
 
  lngSec = lngSec + 1
  If lngSec >= 86400 Then lngSec = 0
 
  lngHour = Int(lngSec / 3600)
  lngMin = Int((lngSec - (lngHour * 3600)) / 60)
 
  Text1.Text = Format$(TimeSerial(lngHour, lngMin, _
    CInt(lngSec - (lngHour * 3600) - (lngMin * 60))), _
    "hh:nn:ss")
End Sub</code>