You must first specify which fonts to show.

'cdlCFPrinterFonts for Printer Fonts
'cdlCFScreenFonts for Screen Fonts
'cdlCFBoth for both types

CommonDialog1.Flags = cdlCFBoth
CommonDialog1.Action = 4 'Same as ShowFont

------------------
Micah Carrick
Ordinary joe, only not named joe.
http://micah.carrick.com
[email protected]
ICQ: 53480225