Private Declare Function SleepEx Lib "kernel32" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim start As Long
Private Sub Form_Load()
start = GetTickCount ' prim
SleepEx 1, 0 ' after a period
MsgBox GetTickCount - start & "ms" 'test the period
End Sub