主题：BeforeCloseProject事件代码

老师，BeforeCloseProject事件代码如下，点击确定后一直循环怎么回事呢？不加代码，不出来提示框。

Dim Result As DialogResult
Result = MessageBox.Show("你确定要退出吗?","提示", MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
If Result = DialogResult.OK Then
    Syscmd.Project.Exit(True)
    Return
Else
    e.Cancel = True
End If