Yo lo hago con esto. No necesita ningún complemento ni API:
--------------------------------------
Public Sub ESPERAR(S As Single)
Dim T1 As Single
T1 = Timer
Do While T1 + S > Timer
DoEvents
Loop
End Sub
--------------------------------------
Tenés que ubicarla en un módulo para que sea accesible desde cualquier parte del proyecto.
El argumento que le pasás es la cantidad de segundos a esperar:
para que espere 3 segundos: "ESPERAR 3", o "Call ESPERAR(3)".
Te hago notar la presencia de "DoEvents" que permite que se ejecuten otros eventos del mismo programa o de otro cualquiera mientras se cumple el tiempo. De otra forma la PC se congela y parece "colgada" hasta que se cumpe la espera.
Saludos.
