Sometimes you want to give your users the chance to confirm that they wish to proceed with the closure of a form. Instead of using a MsgBox function and a Select Case statement, put this code in the Form_Unload event:
Private Sub Form_Unload(Cancel as Integer) Cancel = (MsgBox("Quit now?", vbOKCancel Or _ vbQuestion, "Confirmation Demo") = vbCancel)End Sub
Behind the Exit button and the Exit menu option, put a simple Unload Me. Whenever users choos to exit, they will be asked to confirm their action.