In my current project when I try to call the common dialog font window

dlg1.ShowFont

I get the message that no fonts are installed and to open the "Fonts" folder in the control panel and install the fonts. According to the control panel I have 90 fonts installed. I tried to run the procedure on another computer and got the same result.

Any ideas as to what may be causing this problem?

Thanks,

Andrew