>a property called PseudoModal to the form and set it to .t. It will be turned to .f. in, say, the QueryUnload event.
>the Deactivate event could contain the following:
>

>  if ThisForm.PseudoModal
>    nodefault
>  endif
>
>* launch the form as:
>
>  do form MyForm name xMyForm linked
>
>* add something like the following:
>
>  do while type("xMyForm.BaseClass") == "C"
>  enddo
>
>... rest of prog
>

NODEFAULT in the activate event doesn't work for simulating a modal form.