Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Declare Function adh_apiGetTime Lib "winmm.dll" _
Alias "timeGetTime" () As Long
Sub real_fast()
Dim dblTime As Double
Dim dblEndTime As Double
dblTime = adh_apiGetTime
For i = 1 To 1000000
j = i
Next i
dblEndTime = adh_apiGetTime
MsgBox "That took " & (dblEndTime - dblTime) & " miliseconds."
End Sub"