【实例说明】
    在日常操作中偶尔会有误操作的情况：未等文件保存就点击了“关闭”按钮，致使前面工作功亏于溃。为了避免这种情况，可以为“关闭”按钮设置一个提示窗口。

【编程思路】
    在窗体的QueryUnload事件下判断是否关闭。Cancel整型，0关闭，1不关闭。UnloadMode整型，它指示引起QueryUnload事件的原因。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在窗体上放置一个CommandButton控件。

    3.源程序  [素材源程序下载]


Private Sub Form_QueryUnload(Cancel as Integer,UnloadMode as Integer)
        Dim myVal As Integer
        myVal = MsgBox("真的要关闭窗口吗？",vbYesNo,"关闭窗口程序")

        '返回的值vbYes
        If myVal = vbYes Then '退出程序
                End '退出
        Else
                Cancel = 1 '不关闭程序
        End If
End Sub

Private Sub Command1_Click()
        Unload Me
End Sub