删除系统菜单

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