@berduş söylemek istediğiniz bu mu;

Option Compare Database

#End IfOption Explicit

#If VBA7 And Win64 Then     '64 bit için

    Declare PtrSafe Function IsWindowVisible Lib "User64" (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

    

#Else                       '32 bit için

    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 Long) As Long