FAIRE UNE PAUSE D'UN CERTAIN NOMBRE DE SECONDES

Private Declare Function GetTickCount Lib "kernel32" () As Long


'********************************************************************************************
' Name       : xWait
' Purpose    : Wait for the time requested without
'              stopping the execution of other functions
' Syntax     : xWait(MilsecToWait)
' Parameters : MilsecToWait : Time to wait in millisecond
' Return     : /
'********************************************************************************************
Public Sub xWait(ByVal MilsecToWait As Long)
    Dim lngEndingTime As Long
  
    lngEndingTime = GetTickCount() + (MilsecToWait)
    Do While GetTickCount() < lngEndingTime
        DoEvents
    Loop
End Sub