[AccessD] The classes as they are at this instant - clsTimer

I know that in an email it is often difficult to "see" the results of a class, and that if you put 
something in wrong it can be darned difficult to figure out hwat is going wrong.  for that reason I 
am posting the classes all by themselves in emails

Option Compare Database
Option Explicit

Private Declare Function apiGetTime Lib "winmm.dll" _
                                      Alias "timeGetTime" () As Long

Private lngStartTime As Long

Private Sub Class_Initialize()
      StartTimer
End Sub

Function EndTimer()
      EndTimer = apiGetTime() - lngStartTime
End Function

Sub StartTimer()
      lngStartTime = apiGetTime()
End Sub


-- 
John W. Colby
www.ColbyConsulting.com