Private Sub Form_Open(Cancel As Integer)
    On Error GoTo errEnd
    Call SubClassHookForm("open")
    If Forms.Count > 1 Then
        'Перемещение формы к текущему элементу управления
        Set frm = Application.Screen.ActiveForm
        Set ctlData = Application.Screen.ActiveControl
        
        Dim ctlRect As RECT                 'Позиция контрола
        Dim frmDimensions As Dimensions     'Размеры формы
        Dim frmRect As RECT                 'Позиция формы
        Dim scrDimensions As Dimensions     'Размеры (разрешение) экрана

        'Определяем позицию текущего контрола
 Application.Screen.ActiveControl.SetFocus
        GetWindowRect GetFocus(), ctlRect
.........