Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) _
As Long
    
Function AccessMaximieren()
    
    Dim ma%
    ma% = ShowWindow(hWndAccessApp, 3)
    
End Function