Dear Experts

I use following codes to close form with only close button, that works fine.
Now I want to use some codes in main prg to apply following code to all the forms in project instead of writing on every form.

Please help


MESSAGEBOX("Please press close button to exit",_screen.ActiveForm.caption)
NODEFAULT



these code are on queryunload evetn