Module Module1
    Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Integer
    'Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
End Module