WinForm 点击关闭按钮事件弹出提醒框

   用到FormClosing事件，示例如下：

   Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        Dim l_confirm As DialogResult
        l_confirm = MessageBox.Show("Are you sure to exit?", "Confirm", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
        If l_confirm = Windows.Forms.DialogResult.Yes Then
            Me.Dispose()    '关闭本窗体，必须有这一步，不然会重复弹出提醒框。
            Application.Exit()  '退出整个程序
        Else
            e.Cancel = True
        End If
    End Sub