esiste tra le API
una funzione che si chiama sleep(msec)
che crea un tempo di attesa di TOT millisecondi....

la devi dichiarare nel seguente modo:
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)

ciao Max