CLEAR ALL
local f1
f1 = createobject('frm')
f1.show
read events
ACTIVATE SCREEN

? "formcount 		 =", _SCREEN.FormCount
? "formS[1]			 =", _SCREEN.Forms[1]
? "formS[1].AMEMBERS =", AMEMBERS(axx,_SCREEN.Forms[1],2)

? "Now, if you uses the _SCREEN.Forms collection into a comboBox.rowSource,"
? " VFP CRASH with a C0005 "

* ----------
define class frm as Form

	AutoCenter = .t.
	ShowWindow = 2
	Toolbar = ''

	procedure Init
		ThisForm.Visible = .t.
		ThisForm.Toolbar = createobject('tbr')
		ThisForm.Toolbar.Dock(0)
		ThisForm.Toolbar.Show
	endproc

	procedure Unload
		clear events
	endproc
	
	PROCEDURE release
		* FORCE RELEASE
		form::Release
		NODEFAULT	
enddefine

* ----------
define class tbr as Toolbar

	ShowWindow = 1

	add object btn as CommandButton;
		with Width=100, Height=25, Caption="Close window"

	procedure btn.Click
		_SCREEN.ActiveForm.Release()
	endproc

enddefine