VB6 QueryPerformanceCounter 函数，返回当前时间毫秒

`QueryPerformanceCounter` 函数是 Windows API 中的一个函数，可以用来获取高精度的计时器值。在 VB6 中使用 `QueryPerformanceCounter` 函数需要先声明该函数以及相关的数据类型：

Private Type LARGE_INTEGER
    LowPart As Long
    HighPart As Long
End Type

Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As LARGE_INTEGER) As Long

Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As LARGE_INTEGER) As Long

其中 `LARGE_INTEGER` 是一个结构体，用来存储 64 位整数的低位和高位。`QueryPerformanceCounter` 函数用来获取当前的计时器值，结果保存在 `LARGE_INTEGER` 结构体中。`QueryPerformanceFrequency` 函数用来获取计时器的频率，单位是每秒多少个计时器周期。

下面是一个示例代码，用来获取当前的毫秒数：

Dim freq As LARGE_INTEGER
Dim count As LARGE_INTEGER
Dim milliseconds As Double

' 获取计时器的频率
QueryPerformanceFrequency freq

' 获取当前的计时器值
QueryPerformanceCounter count

' 计算毫秒数
milliseconds = CDbl(count.LowPart) / CDbl(freq.LowPart) * 1000

' 处理计时器值溢出的情况
If count.HighPart <> 0 Then
    milliseconds = milliseconds + (count.HighPart * 4294967296#) / freq.LowPart * 1000
End If

需要注意的是，`QueryPerformanceCounter` 函数返回的计时器值是一个 64 位整数，其中低位和高位分别保存在 `LARGE_INTEGER` 结构体的 `LowPart` 和 `HighPart` 字段中。由于 VB6 不支持 64 位整数，因此上面的代码中使用了 `CDbl` 函数来将低位和高位的值转换成双精度浮点数，然后再进行计算。另外，由于计时器值可能会溢出，因此需要特别处理这种情况。