• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Kill the Windowz Close Button (X)

Kill the Windowz Close Button (X)

This subroutine will disable the Windows 9x/NT
' close button, also known as the little X
' button. It's really useful when you have a
' form that you don't want to set its ControlBox
' property to False. Write this code in a
' standard module (BAS).

Assumes
Should be familiar with the Windows API.

Side Effects
If you're playing around with the system ' menu in other ways in your program, you ' might have to change the position number ' in your RemoveMenu function calls. Also, ' you could have problems running this ' with a MDI child.

API Declarations
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOS = &H400&

Rate Kill the Windowz Close Button (X)

• 1
• 2
• 3
• 4
• 5

(7(7 Vote))

Public Sub KillCloseButton(hWnd As Long)
 Dim hSysMenu As Long
 hSysMenu = GetSystemMenu(hWnd, 0)
 Call RemoveMenu(hSysMenu, 6, MF_BYPOS)
 Call RemoveMenu(hSysMenu, 5, MF_BYPOS)
End Sub
'Call the above function from a form as it's being loaded
Private Sub Form_Load()
 KillCloseButton Me.hWnd
End Sub