主题：退出

我用了一个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

这么改一下：

Dim Result As DialogResult
Static i As Integer
If i = 0 Then
    i = 1
    Result = MessageBox.Show("Confirm Quit?", "Info", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result <> DialogResult.Yes Then
        i = 0
        e.Cancel = True
    End If
End If