LOCAL ; OldLockScreen, ; EditBoxBorderWidth, ; OldFont, ; OldFontSize, ; OldFontBold OldLockScreen = THISFORM.LOCKSCREEN THISFORM.LOCKSCREEN = .T. EditBoxBorderWidth = 2 OldFont = THISFORM.FONTNAME OldFontSize = THISFORM.FONTSIZE OldFontBold = THISFORM.FONTBOLD THISFORM.FONTNAME = THISFORM.Edit1.FONTNAME THISFORM.FONTSIZE = THISFORM.Edit1.FONTSIZE THISFORM.FONTBOLD = THISFORM.Edit1.FONTBOLD TotalEditBoxTxtHeight = THISFORM.TEXTHEIGHT("X") * (OCCURS(CHR(13), THISFORM.Edit1.VALUE)+1) THISFORM.Edit1.HEIGHT = TotalEditBoxTxtHeight + EditBoxBorderWidth THISFORM.FONTNAME = OldFont THISFORM.FONTSIZE = OldFontSize THISFORM.FONTBOLD = OldFontBold THISFORM.LOCKSCREEN = OldLockScreenhope this helps