När jag skriver CommonDialog.ShowFont får jag ett meddelande att det inte finns några fonter installerade och att jag skall öppna mappen med fonter för att installera.
Hur funkar det?

Du måste först sätta egenskapen Flags
<code>CommonDialog1.Flags = cdlCFBoth</code>

Detta talar om att tillgängliga fonter för skrivare och skärm skall listas

Tack för det! Konstigt meddelande man får.