Has there been a change in VFP 9 with on shutdown or how the close button works? I had a routine that works fine in VFP 7 when you click on the close button. In VFP 9 it doesn't work.

Here's the shutdown

	********************************************************
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
********************************************************