Public oForm
oForm = CreateObject("form1")
oForm.Show()
*


DEFINE CLASS form1 AS form
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT text1 AS textbox WITH ;
		Height = 25, ;
		Left = 60, ;
		Top = 60, ;
		Width = 97, ;
		Name = "Text1"


	ADD OBJECT text2 AS textbox WITH ;
		Alignment = 3, ;
		Value = 123.45, ;
		Height = 25, ;
		Left = 60, ;
                SelectOnEntry = .t., ;
		Top = 108, ;
		Width = 97, ;
		Name = "Text2"


	PROCEDURE text2.Click
                 TextBox::GotFocus()
	ENDPROC


EndDefine