I know how to list the fonts in a combobox:

Public Sub ListFonts()
Dim FontName As FontFamily
For Each FontName In System.Drawing.FontFamily.Families
Form1.Tool_Font_Fonts.Items.Add(FontName.Name)
Next
End Sub

This works very well; however, I do have a little challenge. While the fonts are bing populated I would like to display the style it's self, such as:

Tahoma
Arial
Verdana
Time New Roman

Is there any code out there that some one knows? I would really like to add this litte feture to my program.

I'm using VB 2005 Express if that makes any difference.

Thanks