[AccessD] Create parameter that holds the source control? DOH !

PART 3 

This code goes into a regular module:

Option Compare Database
Option Explicit

Type RECT_Type
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Declare Function apiGetWindowRect Lib "User32" _
    Alias "GetWindowRect" (ByVal hwnd As Long, _
    lpRect As RECT_Type) As Long
Declare Function apiMoveWindow Lib "User32" _
    Alias "MoveWindow" (ByVal hwnd As Long, _
    ByVal x As Long, ByVal y As Long, _
    ByVal w As Long, ByVal h As Long, _
    ByVal bRepaint As Long) As Long
Declare Function GetFocus Lib "User32" () As Long
Declare Function GetSystemMetrics Lib "User32" _
    (ByVal nIndex As Long) As Long
Declare Function GetDC Lib "User32" _
    (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "User32" _
    (ByVal hwnd As Long, ByVal hdc As Long) As Long
Declare Function GetDeviceCaps Lib "gdi32" _
 (ByVal hdc As Long, ByVal nIndex As Long) As Long



***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.