Códigos acess

Tenho este código para ocultar janelas no acess mas acontece que no meu pc já não dá 32 mas sim 64 como faço para resolver este problema?
Alguem me ajuda?







Option Compare Database

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As LongPtr) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function

Olá Manuela,
Você está abrindo tópicos com o mesmo assunto, a mesma dúvida.
Coloque uma dúvida específica em um tópico só específico.
Com esse, já são 03 tópicos seus com a mesma dúvida.
Atente às regras do fórum.
Valeu.

Olá Manuela,
E então, deu certo? Resolveu o problema?
Se sim, não esqueça de clicar no [Resolvido] pra não deixar o tópico em aberto.
Valeu.

Olá Manuela,
O problema foi resolvido?
Se sim, não esqueça de clicar no [Resolvido], para fechar o tópico.
Valeu.