GetTickCount()より精密に時間を計りたいとき

Public Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Long
Public Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Long

Dim curStartTime As Currency
Dim curEndTime As Currency
Dim curFreq As Currency

Call QueryPerformanceFrequency(curFreq)
Call QueryPerformanceCounter(curStartTime)

'何か処理

Call QueryPerformanceCounter(curEndTime)
'ミリ秒で出力
Debug.Print CLng((curEndTime - curStartTime) / curFreq * 1000)