vb程序运行未响应？

我以前也碰到过类似问题，我用一个笨方法：在耗答盯时较大的循环中加入

For i = 1 To 1000 '适当调整to后的值清绝和，即是交出足够的宏缺时间给系统做出反应。不过会影响到程序运行的速度。

DoEvents

Next

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

然后在烂局两个执颂老行之野历升间加入：

Sleep 10000

DoEvents

将你的想执行的程序分割成2个过程，在执凯芦行知迅前过程后启动TIMER：

Timer1.Enabled = True

将判断放TIMER控件的事搭孙此件内，符合条件后，执行后过程，并使Timer1.Enabled = False

---