Trapping the close button message in VB

[afryer]

Hi All,

Does anyone know how to trap the close button message when the user clicks the close button at the top right of the dialog?

Thanks

Andrew

 

[ClulessChris]

Thread222-343200

Everybody body is somebodys Nutter.

 

[TysonLPrice]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Select Case UnloadMode
Case vbFormControlMenu
MsgBox "The user chose the Close command (the ""X"") from the Control menu on the form."
Case vbFormCode
MsgBox "The Unload statement is invoked from code."
Case vbAppWindows
MsgBox "The current Microsoft Windows operating environment session is ending."
Case vbAppTaskManager
MsgBox "The Microsoft Windows Task Manager is closing the application."
Case vbFormMDIForm
MsgBox "An MDI child form is closing because the MDI form is closing."
Case vbFormOwner
MsgBox "A form is closing because its owner is closing."
End Select

End Sub