机房收费系统问题——主窗体被卸载

最近发生了一件很神奇的事情，那就是，当我选择退出关闭主窗体选项时，主窗体会自动卸载，
于是我调试代码，我发现如图所示，

• 当程序走过End if 时，主窗体界面保持显示状态
  -当程序走过End sub时，主窗体被卸载。

我觉得，这个是因为我选择的过程是“unload”，所以最终的结果都会是关闭窗体。

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)

end sub

解决办法：利用cancel参数来阻止这个过程的结束
cancel它作为一个参数，卸载窗体这一过程运行到最后，要对这个参数进行检查，cancel的默认值为0，因此，我们只要在else后，

设定任意一个不为0的cancel值，

即可让这一过程运行不成功，窗体就不会被卸载了。【注：cancel的值不能太大，不然会溢出】

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Dim intresult As Integer
  '请求用户确认是否真的退出系统登录
  intresult = MsgBox("确定关闭窗口？", v