Kernel32.dll

CopyMemory 
FileTimeToSystemTime 
GetTempPathA 
GetTickCountUsed for timing a macro
GetVersionEx 
GlobalAlloc 
GlobalLock 
GlobalSize 
GlobalUnlock 
LocalFileTimeToFileTime 
MultiByteToWideChar 
RtlMoveMemory 
RtlZeroMemory 
Sleep 
SystemTimeToFileTime 
WideCharToMultiByte 

Declare PtrSafe Sub xLib "Kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) 

Public Sub TestPause()
    Dim start As Double
    start = Timer
    Sleep 8000 'Pause for 8 seconds
    Debug.Print "Paused for " & Format(Timer - start, "#,###.000") & " seconds"
End Sub


© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext