¿Como saber donde esta situada la ventana de Access?

Con este API

Private Declare Function GetWindowRect _
                Lib "user32" _
                (ByVal hwnd As Long, _
                lpRect As RECT) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Sub AccessPos()
Dim AccessWindow As RECT

    GetWindowRect Access.hWndAccessApp, AccessWindow
    ' imprimimos en la ventana inmediato las coordenadas de
    ' la ventana de Access
    Debug.Print AccessWindow.Left 'izquierda
    Debug.Print AccessWindow.Top 'superior
    Debug.Print AccessWindow.Right 'derecha
    Debug.Print AccessWindow.Bottom 'inferior

End Sub