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