PUBLIC oform1

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

DEFINE CLASS form1 AS form


	Top =  0 
	Left =  0 
	Height =  250 
	Width =  309 
	DoCreate = .T.
	Caption = "Form1"
	*-- XML Metadata for customizable properties
	_memberdata = ""
	Name = "Form1"


	ADD OBJECT grid1 AS grid WITH ;
		Height =  209 , ;
		Left =  10 , ;
		Top =  12 , ;
		Width =  291 , ;
		Name = "Grid1"


	PROCEDURE Load
		create cursor tt (f1 c( 10 ),f2 c( 10 ),f3 c( 10 ),f4 c( 10 ),f5 c( 10 ),f6 c( 10 ),f7 c( 10 ))
	ENDPROC


ENDDEFINE