PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show DEFINE CLASS form1 AS form autocenter = .t. Height = 107 Width = 115 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT label1 AS label WITH ; Anchor = 240, ; Caption = "Label1", ; Height = 17, ; Left = 34, ; Top = 44, ; Width = 40, ; Name = "Label1" PROCEDURE label1.Move LPARAMETERS nLeft, nTop, nWidth, nHeight this.FontSize=MAX(4,MIN(m.nHeight*0.8,72)) ENDPROC ENDDEFINEif you want a XY resize you should add TXTWIDTH()*FONTMETRIC() measure ....