Public Declare Function MoveWindow Lib  "user32.dll"  (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, _
    ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Public Declare Function FindWindowEx Lib  "user32"  Alias  "FindWindowExA"  _
    (ByVal hwndParent&, ByVal hwndChildAfter&, ByVal lpszClass$, ByVal lpszWindow$) As Long
Public Declare Function GetClientRect Lib  "user32"  _
    (ByVal hwnd&, ByRef lpRect As RECT) As Long

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



Dim rctMain As RECT


        hMDIClient = FindWindowEx(Application.hWndAccessApp,  0 &,  "MDIClient" , vbNullString)
        Call GetClientRect(hMDIClient, rctMain)
        
        Call MoveWindow(Me.hwnd,  0 ,  0 , rctMain.Right - rctMain.Left, _
            rctMain.Bottom - rctMain.Top,  1 )