我的程序中出了这样1个问题。就是在时间控件调用的函数未执行结束时，如要关闭窗体，并不能彻底的把这个程序关闭掉。表面上程序 是关闭了，但是在CTRL+ALT+DEL的管理器中仍能看到该程序。

为了清楚说明我的意思，我写个简单的例子（源程序太麻烦）,只是表达我程序的大概意思及出现的问题：

sub formload()

timer1.inveral=50

timer.enable=true

end sub

sub timer_time() '时间控件的过程头好象是这么写的吧！

beidiaoyonghanshu(50000)

timer1.enable=false

end sub

sub BeiDiaoYongHanShu(byval Maxnum as integer)

dim sum as long 是否会溢出 暂且不说

for i=1 to Maxnum <--------只要是一个需要执行10秒以上的循环即可

Doevents

sum=i*sum

next i

form1.text1.text=sum 赋值是否有效 暂且不说

end sub

在BeiDiaoYongHanShu没有执行完毕的时候关闭Form，表面上看是关闭了，但在进程管理器中可以发现程序其实还 未关闭，资源也没有释放出来。如果在BeiDiaoYongHanShu执行完毕后，关闭程序则可以彻底的把程序关闭掉。

我想知道 这是为什么！该如何彻底的关闭程序！！！！！！

doevents是显示出让控制权的语句，一般用在ActiveX EXE控件中。因为EXE控件是进程外组件，可以做出多进程的应用程序。我想楼主的程序显然是每循环一次程序会让出控制权，而未循环完成时控制权并没有转回源程序。可能因为此种原因导致了楼主的现象。不过doevents的执行时间的确是不好掌握，一般最好用在ActiveX EXE组件中而且最好是两个对象调用相同方法时使用。直接用在源程序里的确不好掌握。

在关闭程序的时候设置ExitFlag标志 for i=1 to Maxnum <--------只要是一个需要执行10秒以上的循环即可

Doevents

sum=i*sum

if ExitFlag=true then Exit Sub next i

还有就是像你这样计算加和的程序很快执行的，不用转移控制权的，一般是要长时间占用cpu才会使用doevents

如griefforyou所说，问题已经解决的 谢谢~~~~~~~~~~~~~~~`