' Disclaimer: TYPED IN FORUM EDITOR, NOT TESTED
Sub Timer_Tick()
Label1.Text = FormatTime(Datetime.Now - glStart)
End Sub
Public Sub FormatTime(TickVal As Long) As String
Dim plDiff As Long
Dim psTemp As String
Dim piTenth As Int
Dim piSec As Int
Dim piMin As Int
Dim piHours As Int
plDiff = TickVal
If plDiff = 0 Then
psTemp = "0:00:00"
Else
piTenth = plDiff / 100
piSec = piTenth / 10
piTenth = piTenth - (piSec * 10)
piMin = piSec / 60
piSec = piSec - (piMin * 60)
piHours = piMin / 60
piMin = piMin - (piHours * 60)
psTemp = NumberFormat2(piHours, 1, 0, 0, False) & ":" & _
NumberFormat2(piMin, 2, 0, 0, False) & ":" & _
NumberFormat2(piSec, 2, 0, 0, False)
End If
Return psTemp
End Sub