教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

Const vbFormControlMenu=0 'User has chosen Close command from Control menu box on form
Const vbFormCode=1 'Unload method invoked from code
Const vbAppWindows=2 'Current Windows session ending
Const vbAppTaskManager=3 'Windows Task Manger is closing the application
Const vbFormMDIForm=4 'MDI child form is closing because the MDI form is closing
vbFormOwner=5 'The owner of the form is closing


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then
Cancel = True
End If
End Sub