devxlogo

RemoveCloseMenuItem – Remove the Close button and command from a form

RemoveCloseMenuItem – Remove the Close button and command from a form

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _    ByVal bRevert As Long) As LongPrivate Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _    ByVal nPosition As Long, ByVal wFlags As Long) As Long' Remove the Close menu item and disable the Close button' from a windowPublic Sub RemoveCloseMenuItem(ByVal hWnd As Long)    Const SC_CLOSE = &HF060    Const MF_BYCOMMAND = 0        Dim hMenu As Long    ' get the system menu's handle    hMenu = GetSystemMenu(hWnd, 0)    ' remove the Close item    RemoveMenu hMenu, SC_CLOSE, MF_BYCOMMANDEnd Sub

devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist