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

Share the Post:
Share on facebook
Share on twitter
Share on linkedin


Recent Articles: