<-- Previous || Up || Next -->

Debug Timer Sample Sub
Basic Extensions Class

Private Sub DebugTimerSample()
    'Sample of the DebugTimerOn Subroutine and DebugTimerOff Function.

    'See also:
    '  DebugTimerOn Subroutine
    '  DebugTimerOff Function
    '  DebugTimers Function
    '  DebugTimersSample Subroutine


    Dim dblSqr As Double
    Dim lngTry As Long
    For lngTry = 1 To 1000000
        dblSqr = Sqr(lngTry)
    Next lngTry

    Debug.Print DebugTimerOff
End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.