VB6.0 获取当前时间毫秒数 - 等效于 JS 中的 new Date().getTime()

在VB6.0中，可以使用以下代码来获取当前时间的毫秒数：

Dim d As Date
d = Now
Dim milliseconds As Long
milliseconds = CLng(d * 24 * 60 * 60 * 1000)

首先使用Now函数获取当前日期和时间，然后将其转换为毫秒数。由于VB6.0中Date类型的小数部分表示时间，因此将其乘以一天的毫秒数（24 * 60 * 60 * 1000）即可得到毫秒数。最后使用CLng函数将浮点数转换为长整型。