Function shutit
	********************************************************
	Local lShutDown
	lShutDown = .T.

	For nCnt = _Screen.FormCount To 1 Step -1
		* Backward because we're going to change things
		If _Screen.Forms[nCnt].BaseClass = "Form"  && skip toolbars
			If _Screen.Forms[nCnt].QueryUnload()
				_Screen.Forms[nCnt].Release()
			Else
				lShutDown = .F.
				Exit
			Endif
		Endif
	Endfor
	Release Main
	*On Shutdown
	Quit
Endfunc && shutit >>>