Attribute VB_Name = "Module1"
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public lTime_1 As Long, lTime_2 As Long
Public lTime_Min As Long, lTime_Max As Long
Public lTime_Start As Long, lTime_Stop As Long

Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)