主题：退出

我用了一个message对话框做退出，但点是的时候总是要按很多次才行。为什么呢？

这是 beforecloseproject 代码

Dim Result As DialogResult
Result = MessageBox.Show("Confirm Quit?", "Info", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Syscmd.Project.Exit()
    Return
Else
    e.Cancel = True
End If