vb中如何实现延时功能？

Answer 1

可以用定时器，设置个中断时间间隔，时间一到就进入中断，可用于按一定规律延时的情况。
也可以用Timer函数，如以下是延时100ms:
T1=Timer
Do While(Timer-T1<0.1)
X=DoEvents
LOOP
注意，用这二种方法的延时只有在延时时间>20ms以上才比较准，时间越小越不准。

Answer 2

Private Declare Sub Sleep Lib "kernel32.DLL" (ByVal dwMilliseconds As Long)

过程中
sleep 1000
延时1秒

Answer 3

我百度空间有个延时模块，可以看看。