Public Type TRect
   Left As Long   ' X-координата левого верхнего угла окна
   Top As Long    ' Y-координата левого верхнего угла
   Right As Long  ' X-координата правого нижнего угла
   Bottom As Long ' Y-координата правого нижнего угла
End Type

Public Declare Function GetWindowRect Lib  "User32"  (ByVal H As Long, T As TRect) As Byte

Public Declare Function SetWindowPos Lib  "User32"  _
    (ByVal Hwnd As Long, ByVal hWndInsertAlter As Long, _
     ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
     ByVal cy As Long, ByVal wFlags As Long) As Long

Dim T As TRect, T1 As TRect, T2 As TRect, i As Byte, u As Boolean, X As Long, Y As Long

DoCmd.OpenForm  "Search" 
i = GetWindowRect(Me.Hwnd, T1)
i = GetWindowRect(Forms!Search.Form.Hwnd, T2)
X = T1.Left + ((T1.Right - T1.Left) - (T2.Right - T2.Left)) /  2 
Y = T1.Top + ((T1.Bottom - T1.Top) - (T2.Bottom - T2.Top)) /  2 
u = SetWindowPos(Forms!Search.Hwnd,  0 , X, Y, T2.Right - T2.Left, T2.Bottom - T2.Top, &H20)