VB6 GetTickCount 函数返回毫秒实例

`GetTickCount` 函数是 Windows API 中的一个函数，可以用来获取自系统启动以来经过的毫秒数。在 VB6 中使用 `GetTickCount` 函数需要先声明该函数：

Private Declare Function GetTickCount Lib "kernel32" () As Long

然后就可以在代码中调用该函数来获取当前的毫秒数：

Dim milliseconds As Long
milliseconds = GetTickCount()

需要注意的是，`GetTickCount` 函数返回的是一个 32 位整数，表示自系统启动以来经过的毫秒数。如果系统运行时间超过了 49.7 天，计数器会重新从零开始，因此需要特别注意这种情况。另外，如果需要更高精度的计时器，可以考虑使用 Windows API 中的 `QueryPerformanceCounter` 函数。