主题：关闭前执行

在主界面beforeclose中有这么一段代码 

If e.Form.Controls("Panel1").Enabled = True Then
    Dim Result As DialogResult
    Result = MessageBox.Show("请勿强制关闭!请点击菜单中的【安全退出】按钮关闭系统!", "温馨提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    If Result = DialogResult.OK Then
        e.Cancel= True
    End If
End If

为什么 我在其他界面按关闭 老是会触发这一段代码 老是给提示 但是提示之后又可以关闭 （关闭当前界面返回主界面）

安全退出的事件代码：

Dim Result As DialogResult
Result = MessageBox.Show("确定要退出系统吗?", "确认提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
If Result = DialogResult.OK Then
    e.Form.Controls("Panel1").Enabled = False
    Dim dr As DataRow
    Dim hyzh As String =e.Form.Controls("姓名").Text
    hyzh = hyzh.Trim(" ", "登","录","账","号",":","[","]")
    dr = DataTables("账户管理").Find("[用户账号] = '" & hyzh & "' ")
    dr("用户状态") = False
    Forms("主界面").Close()
    Syscmd.Project.Exit(True)
Else
    e.Form.Controls("Panel1").Enabled = True
End If