高精度计时器类(VB)

Option Explicit

Private Type LARGE_INTEGER
   lowpart As Long
   highpart As Long
End Type

Private Declare Function QueryPerformanceCounter Lib "kernel32.dll" _
     (ByRef lpPerformanceCount As Currency) As Long
Private Declare Function QueryPerformanceFrequency Lib "kernel32.dll" _
      (ByRef lpFrequency As Currency) As Long

Private period As Currency
Private startTime As Currency
Private timerFrequency As Currency
Private bhasHiResCounter As Boolean

Public Sub StartTimer()
   Dim lR As Long
   lR = QueryPerformanceCounter(startTime)
End Sub

Public Sub StopTimer()
   Dim endTime As Currency
   Dim lR As Long
   lR = QueryPerformanceCounter(endTime)
   period = endTime - startTime
End Sub

Public Property Get ElapsedTime() As Double
   ElapsedTime = period / (timerFrequency * 1#)
End Property

Public P