[VB6]Probleme Common Dialog

Voila, mon probleme est le suivant ::
Je n'arrive pas a activer le "showfont" dans une common dialog, j'ai beau essayer, il me met que "Aucune police n'est installée, allez voir dans panneau de configuration pour en installer."
Seulement, mes polices sont trés bien installées, je n'ai trouvé aucun répertoire dans le dossier de Visual Basic qui s'appele ou qui contient un dossier nommé "polices" ou "font".
Pouvez vous m'aider???
Merci d'avance!

Il est nécessaire de fixer d'abord un drapeau :

essaye :

Code:

---

1 2 3 4 5 6 7

Private Sub Command1_Click() dim toto as string CommonDialog1.Flags = cdlCFBoth '===ce drapeau est nécessaire CommonDialog1.ShowFont toto = CommonDialog1.FontName MsgBox toto End Sub

---

tu sélectionnes une font dans la boîte, tu valides et tu vois...

ok, merci, j'essairaie ça tout a l'heure !!!