Set gForm1 = New frmControls
    Set gPictureSetup = frmControls.PictureSetup
...

        SetParent gPictureSetup.hWnd, hWndParent 'т.е. папой назначается dialog
        gPictureSetup.Visible = True
...

Public Function OFNHookProc(ByVal hWnd As Long, _
                            ByVal uMsg As Long, _
                            ByVal wParam As Long, _
                            ByVal lParam As Long) As Long
...
                Case CDN_INITDONE
...
                    OldWindowProc = SetWindowLong( _
                        hwndParent, GWL_WNDPROC, _
                        AddressOf NewWindowProc)

Private Function NewWindowProc(ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam As WINDOWPOS) As Long
   Dim tNMH As NMHDR
    ' If we're being destroyed,
    ' restore the original WindowProc.
    If msg = WM_NCDESTROY Then
        Debug.Print "WM_NCDESTROY"
        SetWindowLong _
            hWnd, GWL_WNDPROC, _
            OldWindowProc
    End If
'    If msg = WM_COMMAND Then
'        Debug.Print "WM_COMMAND-" & wParam
'        'Debug.Print gBT.hWnd
'        CopyMemory tNMH, ByVal lParam, Len(tNMH)
'        'Debug.Print "tNMH.code-" & tNMH.hwndFrom
'        Select Case tNMH.code
'        'End Select
'    End If

    ' See if this is a WM_SIZE or WM_SIZING or WM_SHOWWINDOW message.
    If msg = WM_SIZE Or WM_SIZING Or WM_SHOWWINDOW Then
        ChangeOurFramePosition hWnd
    End If
    'Debug.Print msg
    ' Continue normal processing. VERY IMPORTANT!
    NewWindowProc = CallWindowProc( _
        OldWindowProc, hWnd, msg, wParam, _
        lParam)
End Function

Public Function OFNHookProc(ByVal hWnd As Long, _
                            ByVal uMsg As Long, _
                            ByVal wParam As Long, _
                            ByVal lParam As Long) As Long
...
      Case WM_NOTIFY
...
                Case CDN_INITDONE
                    '======================================
                    hWndParent = GetParent(hWnd)
                    SetOurFramePosition hWndParent
                    OldWindowProc = SetWindowLong( _
                        hWndParent, GWL_WNDPROC, _
                        AddressOf NewWindowProc)
...

Private Sub SetOurFramePosition(ByVal hWndParent As Long)
...
    'элементы справа через API (с frmControls только считываем местоположение, все через API)
    'Options:
    retval = CreateWindowEx( 0 , "Button", "All", WS_CHILD Or BS_AUTORADIOBUTTON, _
        pt.x + frmControls.OptionAll.Left, frmControls.OptionAll.Top, _
        frmControls.OptionAll.Width, frmControls.OptionAll.Height, hWndParent,  0 , App.hInstance, ByVal  0 &)
    ShowWindow retval,  1 
    retval = CreateWindowEx( 0 , "Button", "Current", WS_CHILD Or BS_AUTORADIOBUTTON, _
        pt.x + frmControls.OptionCurrent.Left, frmControls.OptionCurrent.Top, _
        frmControls.OptionCurrent.Width, frmControls.OptionCurrent.Height, hWndParent,  0 , App.hInstance, ByVal  0 &)
    ShowWindow retval,  1 
    retval = CreateWindowEx( 0 , "Button", "Selected", WS_CHILD Or BS_AUTORADIOBUTTON, _
        pt.x + frmControls.OptionSelected.Left, frmControls.OptionSelected.Top, _
        frmControls.OptionSelected.Width, frmControls.OptionSelected.Height, hWndParent,  0 , App.hInstance, ByVal  0 &)
    ShowWindow retval,  1 

Private Function NewWindowProc(ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam As WINDOWPOS) As Long
...
    If msg = WM_COMMAND Then
        lNotify = Get_HiWord(wParam)
        lCtrlID = Get_LoWord(wParam)
        Debug.Print "WM_COMMAND-" & lNotify & "/" & lCtrlID & "/" & wParam

    SendMessage gOptionAll.hWnd, BM_SETSTYLE, BS_AUTORADIOBUTTON,  0 
    SendMessage gOptionCurrent.hWnd, BM_SETSTYLE, BS_AUTORADIOBUTTON,  0 
    SendMessage gOptionSelected.hWnd, BM_SETSTYLE, BS_AUTORADIOBUTTON,  0 

    SendMessage gOptionAll.hWnd, BM_CLICK,  0 ,  0 

    SetParent gCheckSplit.hWnd, hWndParent
    gCheckSplit.Visible = True
...
    SetParent gTextTo.hWnd, hWndParent
    gTextTo.Visible = True

Public gForm1 As Form
Public gFrameLabelPages As Frame 'содержит надпись Pages:
Public gTextPages As TextBox
Public gOptionAll As OptionButton
Public gOptionCurrent As OptionButton
Public gOptionSelected As OptionButton
Public gFrameLabelFromTo As Frame 'содержит надписи From и To
Public gTextFrom As TextBox
Public gVScrollFrom As VScrollBar
Public gTextTo As TextBox
Public gVScrollTo As VScrollBar
Public gCheckSplit As CheckBox

      .flags = OFN_EXPLORER Or OFN_ENABLEHOOK Or OFN_ENABLESIZING Or OFN_HIDEREADONLY
      .fnHook = FARPROC(AddressOf OFNHookProc)
..
'========================================
    'Prepare the controls for CommonDialog
    Set gForm1 = New frmControls
    Set gFrameLabelPages = frmControls.FrameLabePages
    Set gOptionAll = frmControls.OptionAll
    Set gOptionCurrent = frmControls.OptionCurrent
    Set gOptionSelected = frmControls.OptionSelected
    Set gLabelFrom = frmControls.LabelFrom
    Set gLabelTo = frmControls.LabelTo
    Set gTextFrom = frmControls.TextFrom
    Set gVScrollFrom = frmControls.VScrollFrom
    Set gTextTo = frmControls.TextTo
    Set gVScrollTo = frmControls.VScrollTo
    Set gCheckSplit = frmControls.CheckSplit
    Set gFrameLabelFromTo = frmControls.FrameLabelFromTo
'========================================
    Call GetOpenFileName(OFN)
'========================================
    Rem Release resources
    Set gFrameLabelPages = Nothing
    Set gOptionAll = Nothing
    Set gOptionCurrent = Nothing
    Set gOptionSelected = Nothing
    Set gLabelFrom = Nothing
    Set gLabelTo = Nothing
    Set gTextFrom = Nothing
    Set gVScrollFrom = Nothing
    Set gTextTo = Nothing
    Set gVScrollTo = Nothing
    Set gCheckSplit = Nothing
    Set gFrameLabelFromTo = Nothing
    Unload frmControls
    Set gForm1 = Nothing
'========================================
End Sub

Public Function OFNHookProc(ByVal hWnd As Long, _
                            ByVal uMsg As Long, _
                            ByVal wParam As Long, _
                            ByVal lParam As Long) As Long

 ...
     Select Case uMsg
      Case WM_INITDIALOG
        hWndParent = GetParent(hWnd)
        Call SendMessage(hWndParent, CDM_SETCONTROLTEXT, ID_HELP, ByVal "Settings")
        hItem = GetDlgItem(hWndParent, ID_HELP)
        If IsWindowEnabled(hItem) Then Call EnableWindow(hItem,  0 )
      Case WM_NOTIFY
            CopyMemory tNMH, ByVal lParam, Len(tNMH)
            Select Case tNMH.code
                Case CDN_HELP 'Help clicked (that is settings)
                    FormJPEG.Show  1 
                    '-------здесь сидим и ждем пока пользователь закроет FormJPEG----
                    SendMessage GetParent(hWnd), WM_SETFOCUS,  0 &,  0 &
                Case CDN_TYPECHANGE
                    hWndParent = GetParent(hWnd)
                    hItem = GetDlgItem(hWndParent, ID_FILETYPE)
                    Index = SendMessage(hItem, CB_GETCURSEL, ByVal  0 &, ByVal  0 &) +  1 
                    hItem = GetDlgItem(hWndParent, ID_HELP)
                    'SetWindowLong hItem, GWL_STYLE, GetWindowLong(hItem, GWL_STYLE) Or WS_DISABLED
                    If Index =  4  Then 'пользователь решил сохранять как JPEG
                        If Not (IsWindowEnabled(hItem)) Then Call EnableWindow(hItem,  1 )
                    Else
                        If IsWindowEnabled(hItem) Then Call EnableWindow(hItem,  0 )
                    End If
                Case CDN_INITDONE
                    '======================================
                    hWndParent = GetParent(hWnd)
                    SetOurFramePosition hWndParent
                    'Call WinProc
                    OldWindowProc = SetWindowLong( _
                        hWndParent, GWL_WNDPROC, _
                        AddressOf NewWindowProc)
                    '======================================
                Case Else
            End Select
      Case Else
   End Select
End Function

Private Sub SetOurFramePosition(ByVal hWndParent As Long)
    Dim rc As RECT, rcDesk As RECT  'rc-это диалог
    Dim rL As RECT, hLV As Long, pt As POINTAPI 'LIST1
    Dim rCN As RECT, hCN As Long, ptCN As POINTAPI 'CANCEL button
    Dim rHL As RECT, hHL As Long, ptHL As POINTAPI 'HELP button
    Dim rSB As RECT 'StatusBar
    Dim adwParts( 2 ) As Long 'Statusbar Parts:0,1,2-3шт
    Dim lRet As Long 'хранение StatusBar шрифт
    
    'установка элементов
    GetWindowRect hWndParent, rc    ' Common Dialog
    'Find the ListView (LIST1) position to calculate where insert наши элементы
    hLV = GetDlgItem(hWndParent, ID_LIST1)  ' LIST1 handle
    GetWindowRect hLV, rL             ' LIST1 rectangle
    Rem In <pt> I will set the Right & Top of ListView LIST1
    pt.x = rL.Right
    pt.y = rL.Top
    ScreenToClient hWndParent, pt
    
    'установка элементов правой "панели"
    'gFrameLabelPages.Height = (rL.Bottom - rL.Top) + pt.y
    gFrameLabelPages.Left = pt.x
    gFrameLabelPages.Top = frmControls.LabePages.Top
    gOptionAll.Left = pt.x + frmControls.OptionAll.Left
    gOptionAll.Top = frmControls.OptionAll.Top
    gOptionCurrent.Left = pt.x + frmControls.OptionCurrent.Left
    gOptionCurrent.Top = frmControls.OptionCurrent.Top
    gOptionSelected.Left = pt.x + frmControls.OptionSelected.Left
    gOptionSelected.Top = frmControls.OptionSelected.Top
    gFrameLabelFromTo.Left = pt.x
    gFrameLabelFromTo.Top = frmControls.LabelFrom.Top
    gTextFrom.Left = pt.x + frmControls.TextFrom.Left
    gTextFrom.Top = frmControls.TextFrom.Top
    gVScrollFrom.Left = pt.x + frmControls.VScrollFrom.Left
    gVScrollFrom.Top = frmControls.VScrollFrom.Top
    gTextTo.Left = pt.x + frmControls.TextTo.Left
    gTextTo.Top = frmControls.TextTo.Top
    gVScrollTo.Left = pt.x + frmControls.VScrollTo.Left
    gVScrollTo.Top = frmControls.VScrollTo.Top
    gCheckSplit.Left = pt.x + frmControls.CheckSplit.Left
    gCheckSplit.Top = frmControls.CheckSplit.Top
    
    rc.Right = rL.Right + gFrameLabelPages.Width 'ширина диалога увеличивается на заданный размер
    
    'Find the Cancel Button (CANCEL) position to calculate where insert the HELP button
    hCN = GetDlgItem(hWndParent, ID_CANCEL) ' CANCEL handle
    GetWindowRect hCN, rCN             ' CANCEL rectangle
    Rem In <ptCN> I will set the Right & Top of button CANCEL
    ptCN.x = rCN.Right
    ptCN.y = rCN.Top
    ScreenToClient hWndParent, ptCN
    
    'Find the Help Button (HELP) position to calculate
    hHL = GetDlgItem(hWndParent, ID_HELP)  ' HELP handle
    GetWindowRect hHL, rHL             ' HELP rectangle
    Rem In <ptCN> I will set the Right & Top of button HELP
    ptHL.x = rHL.Right
    ptHL.y = rHL.Top
    ScreenToClient hWndParent, ptHL
    'сдвигаем HELP вправо от CANCEL, размещаем посередине нашей панели, и увеличиваем ее ширину в 1,5раза
    MoveWindow hHL, ptCN.x + (rc.Right - rCN.Right) /  2  - (rHL.Right - rHL.Left) *  3  /  4 , ptCN.y, _
    (rHL.Right - rHL.Left) *  1 . 5 , rHL.Bottom - rHL.Top,  1 
    'только теперь делаем HELP видимым, не использовали OFN_SHOWHELP,лишнее пустое место внизу не нужно
    SetWindowLong hHL, GWL_STYLE, GetWindowLong(hHL, GWL_STYLE) Or WS_VISIBLE '

    'Statusbar create так и быть через API
    hStatusBarWnd = CreateStatusWindowA(WS_CHILD Or WS_VISIBLE, "StatusBar Text", hWndParent,  0 )
    GetWindowRect hStatusBarWnd, rSB ' StatusBar rectangle
    'высоту формы увеличиваем на высоту StatusBar
    rc.Bottom = rc.Bottom + (rSB.Bottom - rSB.Top)
    'устанавливаем шрифт в StatusBar как в родительской форме
    'Set the font of the status bar using the WM_SETFONT by getting the font from
    'this form using the WM_GETFONT
    lRet = SendMessage(hWndParent, WM_GETFONT,  0 ,  0 )
    SendMessage hStatusBarWnd, WM_SETFONT, lRet,  0 
    'установка размеров панелей в Statusbar
    adwParts( 0 ) =  200 
    adwParts( 1 ) =  350 
    adwParts( 2 ) = - 1  'до конца формы
    SendMessage hStatusBarWnd, SB_SETPARTS, ByVal  3 , adwParts( 0 )
    'Установка текста панелей(что-нибудь напишем для теста пока)
    SetText hStatusBarWnd,  0 , SBT_SUNKEN, "Size: 1 156 697 bytes"
    SetText hStatusBarWnd,  1 , SBT_SUNKEN, "Pages: 1/52"
    SetText hStatusBarWnd,  2 , SBT_SUNKEN, "Resolution: 204*98 dpi"

    'Use Elements in this Common Dialog
    'добавляем снизу вверх, это влияет на последовательность TabIndex c т.зр.диалога
    'мы хотим чтоб TAB продвигался сверху вниз Options->TextFrom->TextTo->CheckSplit
    SetParent gCheckSplit.hWnd, hWndParent
    gCheckSplit.Visible = True
    SetParent gVScrollTo.hWnd, hWndParent
    gVScrollTo.Visible = True
    SetParent gTextTo.hWnd, hWndParent
    gTextTo.Visible = True
    SetParent gVScrollFrom.hWnd, hWndParent
    gVScrollFrom.Visible = True
    SetParent gTextFrom.hWnd, hWndParent
    gTextFrom.Visible = True
    SetParent gFrameLabelFromTo.hWnd, hWndParent 'вместо LabelTo и LabelTrom,label не имеет hwnd
    gFrameLabelFromTo.Visible = True 'enabled=false,чтобы не останавливаться по TAB
    SetParent gOptionSelected.hWnd, hWndParent
    gOptionSelected.Visible = True
    SetParent gOptionCurrent.hWnd, hWndParent
    gOptionCurrent.Visible = True
    SetParent gOptionAll.hWnd, hWndParent
    gOptionAll.Visible = True
    SetParent gFrameLabelPages.hWnd, hWndParent 'вместо LabelPages,label не имеет hwnd
    gFrameLabelPages.Visible = True 'enabled=false,чтобы не останавливаться по TAB

    Rem ----------------------------------------------------
    Rem Screen center т.е. выводим это дело на экран
    Rem ----------------------------------------------------
    rcDesk.Left =  0 
    rcDesk.Top =  0 
    rcDesk.Right = Screen.Width / Screen.TwipsPerPixelX
    rcDesk.Bottom = Screen.Height / Screen.TwipsPerPixelY
    SetWindowPos hWndParent,  0 , _
            (rcDesk.Right - (rc.Right - rc.Left)) /  2 , _
            (rcDesk.Bottom - (rc.Bottom - rc.Top)) /  2 , _
            rc.Right - rc.Left, _
            rc.Bottom - rc.Top,  0 
    
    'теперь исправляем все то что "сглючило"
    'StatusBar перемещаем только после прорисовки формы на подготовленное заранее пространство внизу
    'By default, our new status bar assumes its own position and
    'size. Use the MoveWindow API to move it to the bottom of the form
    SendMessage hStatusBarWnd, WM_SIZE,  0 ,  0 
    'восстановление работы Option1/2/3 в группе, почему-то они забыли что были группой
    SendMessage gOptionAll.hWnd, BM_SETSTYLE, BS_AUTORADIOBUTTON,  0 
    SendMessage gOptionCurrent.hWnd, BM_SETSTYLE, BS_AUTORADIOBUTTON,  0 
    SendMessage gOptionSelected.hWnd, BM_SETSTYLE, BS_AUTORADIOBUTTON,  0 
    'повторная инициализация OptionButtonGroup, чтобы фокус по TAB с самого начала получала только
    'одна из них, а не все подряд, это тоже надо восстановить
    SendMessage gOptionAll.hWnd, BM_CLICK,  0 ,  0 
End Sub

Private Function NewWindowProc(ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam As WINDOWPOS) As Long
    ' If we're being destroyed,
    ' restore the original WindowProc.
    If msg = WM_NCDESTROY Then
        SetWindowLong _
            hWnd, GWL_WNDPROC, _
            OldWindowProc
    End If
    ' See if this is a WM_SIZE or WM_SIZING or WM_SHOWWINDOW message.
    If msg = WM_SIZE Or WM_SIZING Or WM_SHOWWINDOW Then
        ChangeOurFramePosition hWnd
    End If
    ' Continue normal processing. VERY IMPORTANT!
    NewWindowProc = CallWindowProc( _
        OldWindowProc, hWnd, msg, wParam, _
        lParam)
End Function

Private Sub ChangeOurFramePosition(ByVal hWndParent As Long)
    Dim rc As RECT, rcDesk As RECT
    Dim rL As RECT, hLV As Long, pt As POINTAPI ' LIST
    'некоторые элементы требуют перерисовки при Диалог_Resize
    'установка элементов
    GetWindowRect hWndParent, rc    ' Common Dialog
    'Find the ListView (LIST) position to calculate where insert наши элементы
    'почему-то здесь надо использовать ID_LIST вместо ID_LIST1
    hLV = GetDlgItem(hWndParent, ID_LIST) 'ID_LIST (LIST handle)
    GetWindowRect hLV, rL ' LIST rectangle
    'In <pt> I will set the Right & Top of ListView LIST
    pt.x = rL.Right
    pt.y = rL.Top
    ScreenToClient hWndParent, pt
    
    gFrameLabelPages.Top = frmControls.LabePages.Top * Screen.TwipsPerPixelY
    gFrameLabelPages.Left = pt.x * Screen.TwipsPerPixelX
    gFrameLabelFromTo.Top = frmControls.LabelFrom.Top * Screen.TwipsPerPixelY
    gFrameLabelFromTo.Left = pt.x * Screen.TwipsPerPixelX
    
    'чтоб Statusbar не отставал от формы
    SendMessage hStatusBarWnd, WM_SIZE,  0 ,  0 
End Sub

Public gForm1 As Form
Public gFrameLabelPages As Frame 'содержит надпись Pages:
Public gTextPages As TextBox
...
    'Prepare the controls for CommonDialog
    Set gForm1 = New frmControls
    Set gFrameLabelPages = frmControls.FrameLabePages
    Set gCheckSplit = Nothing
...
    Set gFrameLabelFromTo = Nothing
    Unload frmControls
    Set gForm1 = Nothing

Sub Main()
 Dim frm As New Form1
 frm.Show
 Form1.Show
 Form1.Command1.Caption = "form1"
 frm.Command1.Caption = "frm"
End Sub

Unload frmControls