在按下关闭键后，会发生Form_Unload和Form_QueryUnload事件。这两个事件都有个Cancel参数，将其设为True就可以避免窗口被关闭。对于你的问题，Form_QueryUnload事件可能更好些，因为它可以区分关闭指令是用户做出的还是系统做出的，或者是代码产生的。例如： 
    Sub Form_QueryUnload(cancel As Integer, closemode As Integer) 
     Cancel = True 
    End Sub 
<END>
