ClassTimer

' in clsTimer...

Dim start, finish

Public Sub StopTimer()
finish = GetTickCount()
End Sub

Public Sub StartTimer()
start = GetTickCount()
finish = 0
End Sub

Public Sub DebugTrace(v)
Debug.Print v & " " & Elapsed()
End Sub

Public Property Get Elapsed()
If finish = 0 Then
Elapsed = GetTickCount() - start
Else
Elapsed = finish - start
End If
End Property