Public Declare Function adh_apiGetTime Lib "winmm.dll" _
            Alias "timeGetTime" () As Long

Global lngStartTime As Long
'

'
'
Sub adhStartTimer()
    ' Start the timer, storing the value in
    ' the module global, lngStartTime.
    
    lngStartTime = adh_apiGetTime()
End Sub
'
'


Function adhEndTimer() as Long
    ' End timing, and return the difference between the
    ' current time and lngStartTime
        
    adhEndTimer = adh_apiGetTime() - lngStartTime
    
End Function