Código
'NTDLL Private Declare Sub NtDelayExecution Lib "NTDLL" (ByVal Alertable As Boolean, ByRef Interval As Any) Private Sub NtSleep(ByVal lMs As Long) Call NtDelayExecution(False, CCur(-(lMs))) End Sub
Minimalista al maximo
Cualquier duda posteen please