可以用定时器,设置个中断时间间隔,时间一到就进入中断,可用于按一定规律延时的情况。
也可以用Timer函数,如以下是延时100ms:
T1=Timer
Do While(Timer-T1<0.1)
X=DoEvents
LOOP
注意,用这二种方法的延时只有在延时时间>20ms以上才比较准,时间越小越不准。
Private Declare Sub Sleep Lib "kernel32.DLL" (ByVal dwMilliseconds As Long)
过程中
sleep 1000
延时1秒
我百度空间有个延时模块,可以看看。