PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


	**************************************************
*-- Form:         form1 (d:\vfp9\form154555.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   03/27/08 10:19:09 AM
*
DEFINE CLASS form1 AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT grid1 AS grid WITH ;
		Height =  200 , ;
		Left =  24 , ;
		Top =  36 , ;
		Width =  320 , ;
		Name = "Grid1"


	PROCEDURE Load
		create cursor tt (t i, p i)

		for i= 1  to  5 
			insert into tt values (i,i)

		endfor
	ENDPROC


	PROCEDURE Init
		this.grid1.Columns[ 2 ].setfocus()
	ENDPROC


ENDDEFINE