'************************************************************ '延时 Public Sub Wait(delay As Single)'Delay app the selected no. of seconds 'example Wait 3.5 'app will loop here for 3.5 secondsstarttime! = Timer Do Until Timer >= starttime! + delay LoopEnd Sub '************************************************************延时2秒 则用 wait(2)
'延时
Public Sub Wait(delay As Single)'Delay app the selected no. of seconds
'example Wait 3.5
'app will loop here for 3.5 secondsstarttime! = Timer
Do Until Timer >= starttime! + delay
LoopEnd Sub
'************************************************************延时2秒
则用
wait(2)