Display Fonts in a combo box

Good Afternoon All

I'm designing a property manager page with VBA. I would like to be able to show the name of the fonts in one combo and the type (e.g. Bold, Italic,...) in the second combo.

Any ideas how I can do this?

I have used DIR\$ command to look into the c:\windows\fonts to populate the list however I get everything e.g. ArialBd.ttf for Arial Bold or arialbi.ttf for Arial Bold Italic.

Any suggestions?

Cheers

Ali

SolidworksApi macros