A Form That Won’t Close

A Form That Won’t Close

If you set a form’s ControlBox property to False, the Minimize and Maximize buttons also become invisible.Suppose you want to provide functionality to the user to maximize and minimize the form, but not to closethe form using the control box. Simply add this code to the Query_Unload event:

 ' uncomment next line in VB3' Const vbFormControlMenu = 0Private Sub Form_QueryUnload(Cancel As _        Integer, UnloadMode As Integer)                If UnloadMode = vbFormControl_                        Menu Then                        Cancel = True                End IfEnd Sub


Share the Post: