Public testForm
testForm = CreateObject("Form1")
testForm.Show()

**************************************************
DEFINE CLASS form1 AS form

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

	ADD OBJECT label1 AS label WITH ;
		Caption = "Label1", ;
		Height =  17 , ;
		Left =  24 , ;
		Top =  55 , ;
		Width =  40 , ;
		Name = "Label1"

	ADD OBJECT text1 AS textbox WITH ;
		Height =  23 , ;
		Left =  120 , ;
		Top =  72 , ;
		Width =  100 , ;
		Name = "Text1"

	PROCEDURE text1.Valid
		ThisForm.label1.Caption = ThisForm.label1.Caption + "1"
		If ThisForm.label1.AutoSize = .F. 
			ThisForm.label1.AutoSize = .T. 
		EndIf
		ThisForm.Refresh()
	ENDPROC

ENDDEFINE
**************************************************