How do I display font combo, with each name written in it's font style?

Hi, I'm trying to create a mini word processor in my VB6 app.
I'd like to have a font combo that displays each font's name in it's
own font style. (Like MS Word has.) Can anyone suggest a control to
use for this?

TIA,
simondeutsch