o = CREATEOBJECT('form1')
o.show( 1 )

DEFINE CLASS form1 AS form

	Caption = "Form1"
	Name = "Form1"
	ADD OBJECT text1 AS textbox WITH ;
		Height =  25 , ;
		Left =  36 , ;
		Top =  12 , ;
		Width =  133 , ;
		Name = "Text1"


	ADD OBJECT command1 AS commandbutton1 WITH ;
		Top =  60 , ;
		Left =  36 , ;
		Height =  25 , ;
		Width =  133 , ;
		Caption = "Command1", ;
		Name = "Command1"
ENDDEFINE

DEFINE CLASS commandbutton1 as commandbutton
PROCEDURE click
	thisform.text1.value = fx()
ENDPROC 
ENDDEFINE  


FUNCTION fx
RETURN SECONDS()