_SCREEN.FORMS(x).Hide()
_SCREEN.FORMS(x).RELEASE()

For x = _SCREEN.FORMCOUNT to  1  step - 1 
	IF !(ALLTRIM(UPPER(_SCREEN.FORMS(x).NAME))=="BUTTONS")
		DO FormRelease WITH x
		* Здесь еще можно попробовать организовать задержку
		*=InKey( 0 . 1 )
	ENDIF
EndFor

PROCEDURE FormRelease
LPARAMETERS nIndex

	_SCREEN.Forms(m.nIndex).Hide()
	_SCREEN.Forms(m.nIndex).Release()
RETURN
ENDPROC

DO HideForm
DO ReleaseForm

* Все формы делаются невидимыми
PROCEDURE HideForm
LOCAL loForm
IF _SCREEN.FormCount >  0 
	For each loForm in _SCREEN.forms
		loForm.Hide()
	endfor
ENDIF

RETURN
ENDPROC

* Все формы удаляются
* При этом предполагается, что они уже невидимы
PROCEDURE ReleaseForm
LOCAL loForm
IF _SCREEN.FormCount >  0 
	For each loForm in _SCREEN.forms
		loForm.Release()
	endfor
ENDIF

RETURN
ENDPROC

*Form.QueryUnload()
NODEFAULT
ThisForm.CmdExit.Click()

FOR lnI =  1  TO _SCREEN.FormCount
	* Индекс ВСЕГДА  1 , а не значение счетчика
	_SCREEN.Forms( 1 ).QueryUnload()
ENDFOR

* Данный метод предпринимает попытку закрыть ВСЕ формы текущего проект
* В случае успеха возвращает .T. и .F. в случае неудачи.

LOCAL IsDoing, loForm, lnHideForms, lnFormSet, lcOnError
*!* Для отладки
*!*	lcOnError = ON("ERROR")
*!*	ON ERROR *		&& подавляю выдачу сообщений об ошибках
IsDoing = .T.
lnHideForms =  0 
lnFormSet =  0 
DO WHILE _SCREEN.FormCount>m.lnHideForms AND m.IsDoing=.T.
	lnCount=_SCREEN.FormCount		&& запоминаю количество существующих форм
	loForm=_SCREEN.Forms( 1 +m.lnHideForms+m.lnFormSet)
	
	* В моих проектах закрытию ЛЮБОЙ формы можно вызвать из метода QueryUnload
	m.loForm.QueryUnload()

	* Если форма успешно удалилась, то переменная loForm должна принять значение NULL
	IF TYPE('m.loForm')='O' AND IsNull(m.loForm)=.F. 
		* Т.е. форма не удалилась
		IF loForm.Visible=.T.
			* Если форма не удалилась и осталась видимой - это значит
			* что в результате диалога с пользователем было решено прервать выход
			IsDoing=.F.
		ELSE
			* Это на случай существования FormSet, когда дочернии
			* формы не удаляются, а лишь делаются невидимыми
			DEACTIVATE WINDOW (m.loForm.Name)
			lnFormSet = m.lnFormSet +  1 
		ENDIF
	ELSE
		lnFormSet =  0 
		IF m.lnCount = _SCREEN.FormCount
			* т.е. это как раз тот случай, когда форма хотя и удалилась,
			* но осталась в памяти из-за не завершенного метода
			lnHideForms = m.lnHideForms+ 1 
		ENDIF
	ENDIF

ENDDO

*!*	ON ERROR &lcOnError

RETURN (_SCREEN.FormCount=m.lnHideForms)

ThisForm.TmrAutoClose.Enabled = .F.
DO FORM ChildModalForm.scx
ThisForm.TmrAutoClose.Enabled = .T.