BKWait Sub for Visual Basic

author:  Chad Boles
email:   clboles@eos.ncsu.edu


Hi all, this is a simple sub that will enable you to
pause your program's execution for a specified number
of seconds WITHOUT using the doevents() function.
Good luck, and email me if you have any problems or
questions.


Usage:

Place the code found below in the (General)
   section of your form or module.


To call the sub in your code, simply type:

   BKWait(secs)

Example:

   This example will pause your program for 3 seconds.
   BKWait(3)

'============= code is below here =============

Public Sub BKWait(HowManySecs)
'   pause for HowManySecs seconds
    Dim EndWait
    EndWait = DateAdd("s", HowManySecs, Now)
    While Now < EndWait
'        this is dummy text...nothing is actually done during the wait
    Wend

End Sub