| |
Xandros
Posts: 100
Score: 0
Joined: 6/23/2005
From:
Status: offline
|
Try this... Delay 15 Sub Delay(Seconds As Double) ' delay for x seconds. ' this sub has a very low CPU overhead. Const OneSecond As Double = 1# / (1440# * 60#) Dim WaitUntil As Date WaitUntil = Now + (OneSecond * Seconds) Do Until Now > WaitUntil Sleep 100 DoEvents ' Allow windows messages to be processed Loop End Sub
|
|