Is there a way to stop a form from unloading? I saw some code here and mimic'd it, however it isn't working so either I have something wrong or you can't do it ?

Assume CloseDown is just a clean up sub.


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim r
If UnloadMode = 0 Then
r = MsgBox("Are you sure you want to close PostIT? (You will not receive messages until you run it again)", vbYesNo)
If r = vbNo Then
Cancel = False
Else
CloseDown
End If
End If
End SubSub