主题：调试程序时如何禁止退出狐表开发环境？

beforeCloseProject事件，弹出信息询问是否关闭

Dim Result As DialogResult
Result = MessageBox.Show("是否关闭?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then
    MessageBox.Show("好好学习吧,你会认同这个看法的.","提示")
    e.cancel = True
End If