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 cur…