Code to wait 10 seconds ?

A

Allen Browne

Something like this perhaps:

Dim dbEnd As Date
dtEnd = DateAdd("s", 10, Now())
Do While Now() < dtEnd()
DoEvents
Loop

It might also be possible to use the Timer event of the form.
 
Top