Abrir aplicación con tamaño y posición

#If Win64 Then
    Private Declare PtrSafe Sub SetWindowPos Lib "user32" (ByVal hwnd&, ByVal hWndInsertAfter&, ByVal x&, ByVal y&, ByVal cx&, ByVal cy&, ByVal wFlags&)
    Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#Else
    Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd&, ByVal hWndInsertAfter&, ByVal x&, ByVal y&, ByVal cx&, ByVal cy&, ByVal wFlags&)
    Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#End If

Global Const HWND_TOP = 0
Global Const SWP_NOZORDER = &H14

Function SizeAccess(cx As Long, cy As Long, cHeight As Long, cWidth As Long)
    On Error GoTo ErrorHandler

    Dim h    As Long
   
    h = Application.hWndAccessApp
    
    SetWindowPos h, HWND_TOP, cx, cy, cWidth, cHeight, SWP_NOZORDER

ExitProcedure:
    Exit Function

ErrorHandler:
    MsgBox "Error!!"
    Resume ExitProcedure
End Function