Put CLEAR EVENTS in the Click and release the form after READ EVENTS

>Hi,
>
>Still can't release form using button on toolbar. Try to create a form with toolbar with a button. In the button's click event release the form.
>After click the form is still on screen and no way to close it.
>
>Here is the sample code:
>
>

>local f1
>f1 = createobject('frm')
>f1.show
>read events
>
>* ----------
>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 Release
>		ThisForm.Toolbar = .NULL.
>	endproc
>
>	procedure Unload
>		clear events
>	endproc
>
>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
>

>
>This bug force me to include a timer on the form and release the form from timer event. Toolbar's button only starts the timer.
>
>Best,
>
>Janusz Czudek
>WORD Software
>http://www.wordsoft.com.pl