>Definite. I expected it to work, but it does nothing. Can you try my code on your machine? Here is my code (I saved the form as a class to get it):
>
>
> PROCEDURE text1.Click
> THIS.value="This is an example of the font "+thisform.combo1.value
> This.fontname= alltrim(thisform.combo1.value)
> thisform.refresh()
> DODEFAULT()
> ENDPROC
>
----------------------------------
António Tavares Lopes