Access - Error al ocultar entorno de Access en 64bit

Option Explicit

Const SW_HIDE = 0

Const SW_NORMAL = 1

Const SW_MINIMIZED = 2

Const SW_MAXIMIZED = 3

Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Form_Open(Cancel As Integer)

    Call ShowWindow(hWndAccessApp, SW_HIDE)

    DoCmd.OpenForm "Inicio Menu", windowmode:=acDialog

End Sub

Private Sub Form_Unload(Cancel As Integer)

    Dim lngRetCode As Long

    lngRetCode = ShowWindow(hWndAccessApp, SW_MAXIMIZED)

End Sub