【VB】Form 窗口关闭确认、ALT+F4 关闭确认

VB Form 窗口关闭确认，VB ALT+F4 关闭窗口确认：

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = 1                                                                  '不Unload，不关闭窗口
    If MsgBox("是否要关闭？", vbYesNo, "提示：") = vbYes Then End               '提问确认
End Sub

'Form_QueryUnload 与 Form_Unload 的区别：
'当用户用"X"关闭或按ALT+F4关闭窗口时，Form_QueryUnload事件先于Form_Unload事件发生。
'从字面上理解的话QueryUnload事件就是询问用户是否关闭窗口，参数Cancel为程序设计者设定的值。
'当条件满足程序设计者设定的条件时，令 Cancel = 0 即可发生Unload事件，当 Cancel = 1 时就不发生Unload事件，窗口也不会被关闭。
'参数UnloadMode 是为了与以前版本兼容留下来的，现在没有使用。