PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 142 Width = 357 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Anchor = 15, ; Value = "some Text", ; Left = 36, ; Top = 48, ; Width = 241, ; Name = "Text1" PROCEDURE text1.Move LPARAMETERS nLeft, nTop, nWidth, nHeight this.FontSize = MAX(m.nHeight/2,4) * ENDPROC ENDDEFINE