PRIVATE m.prPar1, m.prPar2

m.prPar1 =  0 
m.prPar2 = 'ВОТ!'
DO FORM Form2 TO m.Response
IF m.Response
    *-- форма 2 в Unload возвращает способ выхода (ОК или Cancel)
    *-- Использую параметры m.prPar1 и m.prPar2, которые поменялись в форме 2 через ее контролы
ENDIF

LOCAL m.lcForm
m.lcForm = CREATEOBJECT('MyDialogForm')
IF VARTYPE(m.lcForm) = 'O'
    WITH m.lcForm
         .TextBox2.Value =  1 
         .TextBox1.Value = 'ВОТ!'
         ....
    ENDWITH
    m.loForm.Show( 1 )
    IF m.lcForm.Response
        *-- Класс MyDialogForm содержит кнопки 'OK' и 'Cancel' по которым устанавливает свое
        *-- свойство Response и выполняет Hide() себя, а не Release. После Hide() уплавление
        *-- возвращается в этот метод
        *-- Чтобы форма не закрывалась через "крестик" в событие QueryUnload надо такой код
        *--  вставить:
        *--     THISFORM.Hide()
        *--      NODEFAULT
        *-- RETURN .F.
        *-- Используем все, что есть в форме 2 через ссылку loForm
       WITH m.lcForm
           ...  = .TextBox1.Value
           ...  = .TextBox2.Value
            ....
       ENDWITH
    ENDIF
    RELEASE loForm
ENDIF