微秒级计时

Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Long
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Command1_Click()
Dim Ctr1, Ctr2, Ctr3, Freq As Currency
QueryPerformanceFrequency Freq  '获取cpu的频率
QueryPerformanceCounter Ctr1    '获取cpu走过的周期
Do
    QueryPerformanceCounter Ctr2  '获取cpu走过的周期
    If (Ctr2 - Ctr1) * 1000000 / Freq > 1000000 Then '过了1000000us 也就是1s
      Exit Do
    End If
Loop
Print "aa"
End Sub

'来源于网络