如何设置退出程序时弹出询问对话框？

Question

我做了一个程序，在菜单中有一项“退出系统”，我设置为点击时弹出询问是否确定要退出的对话框，代码如下：Private Sub exitsys_Click()
    If MsgBox("你真的要退出系统吗？", vbOKCancel + vbExclamation, "退出") = vbOK Then
    End
    End If
End Sub这样可以实现所需对话框，但在点击程序标题栏右上角的叉号退出时不弹出对话框，请问如何也能在这种情况下弹出对话框？能否用上面相似的代码实现？如果实现的话在哪里实现？多谢！

Answer 1

在窗口的unload事件中加：If MsgBox("你真的要退出系统吗？", vbOKCancel + vbExclamation, "退出") = vbOK

Answer 2

在窗口的QueryUnload事件中加
If MsgBox("你真的要退出系统吗？", vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True