Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
............
Dim T As Long
Dim T1 As Long, T2 As Long
T1 = GetTickCount()
................
'执行一段代码
................
T2 = GetTickCount()
'相隔时间(单位为秒)
T= (T2 - T1) / 1000