vb代码，会的人帮我看下！

窗口接到了unload命令的即将执行还没有开始unload的时候,

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim rt As Integer
rt = MsgBox("要保存对文件作出的更改吗?", vbYesNoCancel + vbQuestion, "保存文件")
If rt = vbCancel Then
Cancel = 1
ElseIf rt = vbYes Then
MsgBox ("添加保存文件代码")
ElseIf rt = vbNo Then
MsgBox ("不保存文件退出")
End If
End Sub

在窗体被卸载之前调用，用来做些善后，比如询问你文件是否保存。。。。

他有个Cancel参数，设为True后就会阻止窗体被卸载。

窗体卸载以前发生

1/ 执行 unload form1 前发生

2/ 点击窗体关闭叉叉时发生!

这个是程序关闭的时候触发的

想知道什么时候触发，可以这样做：
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
MsgBox "触发QueryUnload事件"
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "触发Unload事件"
End Sub

一般QueryUnload事件用关闭一个窗体（不是退出程序），Unload事件用于退出程序，比如用户要退出程序时，可以提示用户是否要保存文件之类的。