>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 > >