Como desabilitar o botão fechar por VBA num Formulário

Option Compare Database
 
'Declarações:
'API Declare para suprimir o Botão Fechar
 
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
 
Public Sub RemoverBotaoFechar(ByVal hwnd As Long) 
    Const SC_CLOSE = &HF060 
    Const MF_BYCOMMAND = 0 
    Dim hMenu As Long 
    ' Menu handle 
    hMenu = GetSystemMenu(hwnd, 0) 
    ' Remover Botão Fechar 
    RemoveMenu hMenu, SC_CLOSE, MF_BYCOMMAND
End Sub