controlling the closing of a window

[grahamnewlands]

How to I prevent a user from closing a window/form. I want the user to instead press a button on the form rather than have them being able to close the window. Any ideas as I've looked at the properties for a window and can't seem to work it out....

 

[dpaulson]

Option Explicit
Dim Quit As Boolean

Private Sub Command1_Click()
Quit = True
Unload Me
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Not Quit Then Cancel = 1
End Sub

David Paulson

 

[swilliams]

Set the ControlBox property of the form to False. Unfortunately with this, you also lose the minimise and maximise buttons, along with the close button (in the top right corner of the form)

Simon