Varför funkar inte:

commondialog1.showfont

jag får ett felmeddelande där det står att

jag inte har några fonter installerade

Här är nog ett exempel, hoppas jag. Jag har inte själv testat den, men jag hittade på internet så den bör funka. Commondialog1 är döpt till CD i detta exemplet.

Private Sub cmdTypsnitt_Click()
CD.Flags = cdlCFBoth + cdlCFTTOnly
CD.ShowFont
Text1.FontBold = CD.FontBold
Text1.FontItalic = CD.FontItalic
Text1.FontName = CD.FontName
Text1.FontSize = CD.FontSize
End Sub

MvH Dan "DaPe" Persson

Här kommer ett annat exempel. CD är namnet på CommonDialog1

Private Sub cmdTypsnitt_Click()
CD.Flags = cdlCFBoth + cdlCFTTOnly
CD.ShowFont
With Text1
.FontBold = CD.FontBold
.FontItalic = CD.FontItalic
.FontName = CD.FontName
.FontSize = CD.FontSize
.FontStrikethru = CD.FontStrikethru
.FontUnderline = CD.FontUnderline
.ForeColor = CD.Color
End With
End Sub

MvH Dan "DaPe" Persson

End MvH :)