有钱的吗，有钱的我教你，你想怎么样都行，保证代码让你满意。

Sleep()是让线程休眠, 会有假死现象,影响其他操作..
给一个可用标志,在timer里设置标志,需要延时的操作中判断标志

那就用Sleep

那就把 sleep 1000 改为：
for i=1 to 10
sleep 100
doevents
next

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
sleep 2000(1000为一秒)