求助一个关于程序退出的问题

Question

我的程序编译成EXE运行后，没有什么问题，但是当退出程序后，系统变的很慢，无意中看到进程里面，我的程序还在，这时CPU占用率是100%，我不知道为什么会出现这种情况。我最开始以为是有的form没有忘记卸载，于是在主form的queryload事件里面，又加上了逐一卸载每个窗体的代码，然后重新编译，但问题依旧，程序关闭了，进程里面还是有，如果不结束该进程，系统就很慢。请教各位高手，这是什么原因阿？该怎么解决呢？

Answer 1

你重新起动下,进你的电脑看下在还有没有在,,,,如果还有可能是你调用API时出错

Answer 2

我就是用end退出程序的阿。
风筝你说的我不太明白，不好意思。。

Answer 3

關閉你打開的表，rs.close
關閉連接，set conn=nothing最後加命令 end

Answer 4

如果程序中用到Timer控件，最好把所有Timer控件的enabled设为false再退出。

Answer 5

谢谢各位的帮助。
不过，timer，打开的数据库什么的我都确实在卸载窗体已经关闭或设置为不可用。重新编译后还是程序不能完全卸载掉。。郁闷了。。

Answer 6

用我这个试试：Public Sub ExitSys()
        Dim objForm As Form
        For Each objForm In Forms
            Unload objForm
            Set objForm = Nothing
        Next
End Sub