What I do when I don't care to reboot in NT Workstation (where I have far less than 180 fonts) is to... 1- click on the object I want to change in the form designer window 2- in the command window: = ASELOBJ (tarray) 3- in the command window: tarray [1].FontName = 'MS Sans Serif' && or whatever font I wish To get the correct spelling of a font, I do: _CLIPTEXT = getfont () and remove the point size and style. That said, you should have no trouble creating a short (3 line) .PRG which would parse the result of the getfont() {i.e. getfont_result = GETFONT () tarray [1].FontName = LEFT (getfont_result, AT (",", getfont_result) - 1) } and stick it on your own menu additions. Just be SURE you NEVER click on the fontname property in the form designer window!!!!!!!!!!!!!! (when was the last time you clicked on save?) Of course, I have since written my own builder (to make sure I conform to my own standards) which does that for me