屏蔽access2007主窗体中的关闭按钮方法 ，就是右上角的叉

大家好，我现在想让用户从我的“退出”按钮退出，把access环境右上角的叉禁用，我看到网上的代码，可加进2007后不行啊！请大家帮帮忙吧

以下方法试过，可是不起作用啊！

Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long 
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long 
Private Const MF_BYCOMMAND = &H0& 
Private Const SC_MAXIMIZE = &HF030 
Private Const SC_RESTORE = &HF120
Private Const SC_SIZE = &HF000
Private Const SC_MOVE = &HF010
Private Const SC_MINIMIZE = &HF020
Private Const SC_CLOSE = &HF060
 
'以上代码放在声明段     

Dim hMenu As Long, Success As Long 
hMenu = GetSystemMenu(Application.hWndAccessApp, 0) 
'禁止还原按钮
Success = DeleteMenu(hMenu, SC_RESTORE, MF_BYCOMMAND) 
'禁止改变大小
Success = DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND) 
'禁止最大化
Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND) 
'禁止最小化
Success = DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND) 
'禁止关闭
Success = DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND) 
'禁止移动
Success = DeleteMenu(hMenu, SC_MOVE, MF_BYCOMMAND)