Sub Globals
Dim limit(1) As double
Dim counter(1) As double
End Sub
Sub App_Start
WaitCursor(True)
limit(0) = TimeAdd(Now, 0, 0, 10)
counter(0) = 0
Do Until Now > limit(0)
counter(0) = counter(0) + 1
Loop
WaitCursor(False)
Msgbox(counter(0)/10 & " iterations per second")
End Sub