prova così:
codice:
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName