Hi Jerry,

does this code not do what you want? If not I've misunderstood.

oForm = CREATEOBJECT("form")
WITH oForm
	.AddObject("command1", "commandbutton1")
	WITH .Command1
		.Top = 228
		.Left = 228
		.Height = 27
		.Width = 84
		.Caption = "Close"
		.TabIndex = 1
	ENDWITH

	.AddObject("grid1","grid")
	WITH .Grid1
		.Height = 200
		.Left = 8
		.TabIndex = 2
		.Top = 12
		.Width = 320
		.ColumnCount = 1
		.column1.AddObject("textbox1", "Textbox1")
		.column1.currentcontrol = "textbox1"
	ENDWITH
ENDWITH 
oForm.SetAll("visible", .t.)
oForm.Show(1)


DEFINE CLASS textbox1 AS textbox

	PROCEDURE When
		WAIT WINDOW "returning .F. from " + PROGRAM()
		RETURN .F.
	ENDPROC
ENDDEFINE 

DEFINE CLASS commandbutton1 AS commandbutton

	PROCEDURE Click
		thisform.release()
	ENDPROC
ENDDEFINE 

>I put in RETURN .F. I just typed it wrong in my reply on UT.
>
>Jerry