Hi I'm trying to change the font in a Rich Text Box. So when I run a line like this

CommonDialog1.Action = 4

I get A msgBox Saying
"There are no fonts installed. Open the fonts folder from the Control Panel to install fonts."
then I press OK and it gives me a Run-time error '24574' no fonts exist Error, so I go to the fonts folder and there are plenty
of fonts.

Does any body have a solution or alternative?

Thanks all