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


Top Software Development Companies in USA
Navigating the tech landscape to find the right partner is crucial yet challenging. This article offers a comparative glimpse into the top software development companies