不要在BeforeClose写Close的代码，循环执行了，改成这样
If vars("Close_Open")=False '启动关闭 If MessageBox.show("是否关闭","提示",MessageBoxButtons.YesNo)=DialogResult.No Then e.cancel = True End IfEnd If
加好友 
发短信
Post By：2016/3/31 14:29:00 [显示全部帖子]
