>DEFINE CLASS form1 AS FORM > AutoCenter=.T. > Height = 123 > Width = 247 > Caption = "Textbox Length Test" > Name = "Form1" > > ADD OBJECT text1 AS textbox WITH ; > Height = 24, ; > Left = 10, ; > SelectOnEntry = .T., ; > Top = 29, ; > Width = 194, ; > Name = "Text1" > > ADD OBJECT cmdchgfont AS commandbutton WITH ; > Height = 29, ; > Left = 62, ; > Top = 71, ; > Width = 124, ; > Caption = "Change Font", ; > Name = "cmdchgfont" > > PROCEDURE cmdchgfont.Click > LOCAL lcFont AS String > lcFont = GETFONT(thisform.Text1.FontName) > IF !EMPTY(lcFont) > thisform.Text1.FontName = GETWORDNUM(lcFont,1,",") > ENDIF > ENDPROC >ENDDEFINE >>