Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function ReMoveMenu Lib "user32" Alias "RemoveMenu" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Function ReMoveSysMenu()
On Error GoTo Exit_ERR
Dim myMenu As Long myMenu = GetSystemMenu(Application.hWndaccessApp, 0)
Call ReMoveMenu(myMenu, &HF060, &H0&)
Call ReMoveMenu(myMenu, &HF120, &H0&)
Exit_ERR:
Exit Function
End Function
