Private Sub DebugTimersSample()
    ' An example of the DebugTimers function that uses an overall timer
    ' and several subordinate timers.

    'See also:
    '  DebugTimers Function
    '  DebugTimerSample Subroutine

    Const NumTries = 64

    Dim lngTry As Long
    Dim varRtn As Variant

    varRtn = DebugTimers(0, True)

    Debug.Print "ASec: 1"
    varRtn = DebugTimers(1, True)
    For lngTry = 1 To NumTries
        varRtn = ASec(RealToComplex(Rnd * 6 - 3, Rnd * 6 - 3))
    Next lngTry
    Debug.Print DebugTimers(1, False)

    Debug.Print "ASecH: 2"
    varRtn = DebugTimers(2, True)
    For lngTry = 1 To NumTries
        varRtn = ASecH(RealToComplex(Rnd * 6 - 3, Rnd * 6 - 3))
    Next lngTry
    Debug.Print DebugTimers(2, False)

    Debug.Print "ACsc: 3"
    varRtn = DebugTimers(3, True)
    For lngTry = 1 To NumTries
        varRtn = ACsc(RealToComplex(Rnd * 6 - 3, Rnd * 6 - 3))
    Next lngTry
    Debug.Print DebugTimers(3, False)

    Debug.Print "ACscH: 4"
    varRtn = DebugTimers(4, True)
    For lngTry = 1 To NumTries
        varRtn = ACscH(RealToComplex(Rnd * 6 - 3, Rnd * 6 - 3))
    Next lngTry
    Debug.Print DebugTimers(4, False)

    Debug.Print DebugTimers(0, False)
End Sub