呵呵,恰巧我不在,这样也可以:
If MessageBox.Show("确定要保存吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = 6 Syscmd.Project.Save()End If