Help... Question about Stopwatch program...

[Aaron Young]

Modify the Timer Event in the Following Way:

Private Sub Timer1_Timer()
    Static tTimer As Single
    Dim tSecs As Single
    If Len(Timer1.Tag) Then
        tTimer = Timer
        Timer1.Tag = ""
    End If
    tSecs = Timer - tTimer
    Caption = Format(TimeSerial(0, 0, tSecs), "HH:MM:SS") & "." & Format((tSecs - Int(tSecs)) * 100, "00")
End Sub

N.B. This will only count to ~9hrs as the TimeSerial Function Requires an Integer

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]