how about something like:
Dim old_time, new_time, i As Integer
i = 10
old_time = Timer()
Do While i > 0
new_time = Timer()
Do While (new_time < old_time+1)
new_time = Timer()
Loop
CLS
Print i
i = i - 1
old_time = new_time
Loop
__________________________________
Do you Yahoo!?
Yahoo! Mail - 50x more storage than other providers!
http://promotions.yahoo.com/new_mail
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 12711
