极度郁闷，VB做的程序退出，总是提示错误，怎么也解决不了，哪 位高手帮我下，谢谢了！！
极度郁闷，VB做的程序退出，总是提示错误，怎么也解决不了，哪 位高手帮我下，谢谢了！！出错提示如下
如有帮我的，请加我QQ:339008994
先谢谢了！！ 无代码无真相 有帮我的恳请加我QQ:339008994 跟我一样
不正确地使用API函数。
比如传递了无效的指针。
在 Callback 程序中发生异常。
是托盘图标么？使用一个设计良好的控件。
或者是你绘制界面的问题。
PS，你的界面好丑。 很明显的就是程序代码有错误的地方, 你把 退出 部份的代码贴出来看看吧 这事找老马吧 谢谢JiluoXingRen！他我做好 了，原来是退出是窗体卸载的问题。
退出的代码：
Public Sub exits()
DLLstopHOOK '退出时卸载HOOK
Call SetWindowLong(Me.hwnd, GWL_WNDPROC2, PrevWndProc) '还原子类化窗口
' 释放资源, 卸载窗体
Set menu = Nothing
'1.折中的办法：在这不要加Unload Frmmail，这样就不出错了 _
其实当编译成exe以后，单击退出执行到这里后，其他的窗体都卸了 _
Frmmail也自然卸了，不会留下进程。
'2.或是你在这窗体设了什么钩子之类的忘卸了，自己检查一下， _
如果找到最好，找不到就用方法一（折中的办法）
Unload cmd
Unload frmMenu
Unload mail
Unload penForm1
Unload penForm2
'''''注销 3 个热键,退出程序是一定要用上的，不然会导至程序死掉
sethotkey 1, "Ctrl+Alt+Shift,121", "DEL", Me ' '''''删除 Ctrl+Alt+Shift+F10 热键
sethotkey 2, "Ctrl+Alt+Shift,120", "DEL", Me ' '''''删除 Ctrl+Alt+Shift+F9 热键
sethotkey 3, "Ctrl+Alt+Shift,122", "DEL", Me ' '''''删除 Ctrl+Alt+Shift+F11 显示邮件设置
TcpServer.Close
End Sub
JiluoXingRen 13:23:20
兄弟，原来是窗体写在出了问题，而且是你的主窗体Frmmail在卸载时出了问题，你是不是设了什么钩子之类的忘了卸了，自己看看吧。
JiluoXingRen 13:28:50
问题出在Frmmail窗体的exits过程里，在你用For Each ... Next语句逐个卸载窗体，当写到主窗体Frmmail时，因为未知的原因而卸载是失败了或是受阻了，建议使用多个Unload语句，逐个卸载窗体，然后不要加Unload Frmmail语句，就是在代码上不卸载主窗体，那错误就不会出现。而实际上，当程序被编译成exe后，运行时选择退出，当其他的窗口都卸载完后，Frmmail也自动卸载了，不会留下进程，完全的结束了，试试。
JiluoXingRen 13:43:11
我把修正过的源码发回给你，你自己编译一个exe试试吧
谢谢JiluoXingRen！！
where's JiluoXingRen? 他QQ里的
补充：VB , 基础类
