PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 32 Width = 146 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Anchor = 15, ; Value = "Sample Text", ; Left = 5, ; Top = 5, ; Width = 133, ; Name = "Text1" PROCEDURE text1.Move LPARAMETERS nLeft, nTop, nWidth, nHeight this.FontSize = MIN(MAX(INT(21*(m.nHeight/21)^0.5) - 12,4),127) ENDPROC ENDDEFINE