formobj = createobject('formcls')
formobj.show( 1 )
DEFINE CLASS formcls AS form
	Height =  266 
	Width =  325 
	Caption = "Example"
	Name = "formcls"
	ADD OBJECT grid1 AS grid WITH Height =  200 , Left =  0 , ;
		RecordSource = "ttt", Top =  0 , Width =  320 , ;
		Name = "Grid1"
	ADD OBJECT edit1 AS editbox WITH Height =  53 , Left =  24 , ;
		Top =  204 , Width =  100 , ControlSource = "ttt.xxx", ;
		Name = "Edit1"
	ADD OBJECT text1 AS textbox WITH ControlSource = "ttt.yyy", ;
		Height =  23 , Left =  144 , Top =  228 , Width =  100 , ;
		Name = "Text1"
	PROCEDURE Load
		create cursor ttt (xxx c( 4 ), yyy n( 4 ))
		insert into ttt values('aaaa', 1 )
		insert into ttt values('bbbb', 2 )
		insert into ttt values('cccc', 3 )
		go top
	ENDPROC
	PROCEDURE Destroy
		use in (select('ttt'))
	ENDPROC
	PROCEDURE grid1.AfterRowColChange
		LPARAMETERS nColIndex
		thisform.Refresh()
	ENDPROC
ENDDEFINE