主题：退出

这么改一下：

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