Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
是从VB API 上粘贴来的,也有问题,最好是
Private Declare Function GetTickCount Lib "kernel32" () As Long
'最好从API浏览器添加.
'窗体:
Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
'标准模块
Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
“declare function gettickcount lib "kernel32" as long--错的太多了!