This is something I have used in Excel. It was cut from MS help for VB
applications. Don't know if it will work for what you are doing, but
worth a try.
' we have to wait while the previous command runs.
PauseTime = 5 ' Set duration.
Start = Timer ' Set start time.
Do While Timer Start +
Thank Patrica and Steve - it's ugly but it works
-Original Message-
From: Steve Rosco [mailto:[EMAIL PROTECTED]]
This is something I have used in Excel. It was cut from MS help for VB
applications. Don't know if it will work for what you are doing, but worth a
try.
' we have to wait
What about the timer event?
See this example:
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox(Press Yes to pause for 5 seconds, 4)) = vbYes Then
PauseTime = 5' Set duration.
Start = Timer' Set start time.
Do While Timer Start + PauseTime
DoEvents' Yield to