В базовом классе экземпляров формы которым ты пользуешься прикрути свойсво, что-то типа oOwner , при вызове дочерней формы в Init() или другим способом пихай туда ссылку на родителя, таким образом у тебя будет возможность рулить полной цепочкой экземпляров форм.

*1--
Local loOwn
loOwn = (thisform) && Если запускаешь из родительской , дочернюю или
loOwn = .null. && если нечего передвать
F1 = createobject('Frm',loOwn)
F1.show()


Define Class Frm as Fom
oOwher = .NULL.
Procedure Init
Lparameter poOwner
thus.oOwner = poOwner
EndProc
Enddefine

*2--

Local loOwn
loOwn = (thisform) && Если запускаешь из родительской , дочернюю или
loOwn = .null. && если нечего передвать
F1 = createobject('Frm')
F1.oOwher = loOwn
F1.show()


Define Class Frm as Fom
oOwher = .NULL.
Enddefine

Вот через это свойсво и будешь обмениваться нотификационными сообщениями
между экземплярами.

Дергай свои цепочки как хочешь. А для достоверности того что твой предок не "умер" и не ругался так "--!!!!!!!!!!! not fount object frmCheck"
, вообще-то его надо проверять , типа так:

if vartype(frmCheck) # "O" or isNULL(frmCheck)
*-- нету твоей формы
Return .F.
endif
*-- а тут можешь с ней поработать

frmCheck.Show