Public Type Dimensions
    Width As Long
    Height As Long
End Type
Public Type Rect
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As Rect) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const SWP_NOZORDER = &H4
Function fnОткрыть_Вернуть(objFrm As Form, strControl As String, ctl As Control) As Variant
'objFrm - форма, strControl - имя элемента формы, из которого возвращается значение, ctl - контрол, к которому привязываем позицию открытия
Dim frmRect As Rect, ctlRect As Rect, frmDimensions As Dimensions
GetWindowRect ctl.hwnd, ctlRect 'геометрия Тулбара
GetWindowRect objFrm.hwnd, frmRect 'геометрия формы
frmDimensions.Width = frmRect.Right - frmRect.Left 'ширина формы
frmDimensions.Height = frmRect.Bottom - frmRect.Top 'высота формы
'позиция открытия формы будет привязана к тулбару
frmRect.Left = ctlRect.Left + frmDimensions.Width
frmRect.Top = ctlRect.Top - frmDimensions.Height -  5 
'собственно сама привязка
SetWindowPos objFrm.hwnd,  0 , frmRect.Left, frmRect.Top, frmDimensions.Width, frmDimensions.Height, SWP_NOZORDER
 objFrm.Show vbModal
 fnSelFromFrm = objFrm.Controls(strControl)
 Unload objFrm
End Function

qq = fnОткрыть_Вернуть(ФормаКоторуюОткрыть, "ИмяЕеПоля", Toolbar1)