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