Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
 
  ' alle verfügbaren Schriften auflisten
  With ComboBox1.Items
    For Each oFont As FontFamily In FontFamily.Families
      .Add(oFont.Name)
    Next
  End With
 
  ' Wir möchten uns um die Ausgabe der
  ' Listen-Einträge selbst kümmern
  ComboBox1.DrawMode = DrawMode.OwnerDrawFixed
 
End Sub

Private Sub ComboBox1_DrawItem(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
 
  ' ComboBox-Eintrag (Schriftname)
  Dim sItem As String = ComboBox1.Items(e.Index)
 
  Dim oFont As Font
 
  ' Neues Schrift-Objekt erzeugen und verfügbare Styles berücksichtigen
  Dim oFamily As New FontFamily(sItem)
  If oFamily.IsStyleAvailable(FontStyle.Regular) Then
    oFont = New Font(sItem, ComboBox1.Font.Size, FontStyle.Regular)
  ElseIf oFamily.IsStyleAvailable(FontStyle.Italic) Then
    oFont = New Font(sItem, ComboBox1.Font.Size, FontStyle.Italic)
  ElseIf oFamily.IsStyleAvailable(FontStyle.Bold) Then
    oFont = New Font(sItem, ComboBox1.Font.Size, FontStyle.Bold)
  ElseIf oFamily.IsStyleAvailable(FontStyle.Underline) Then
    oFont = New Font(sItem, ComboBox1.Font.Size, FontStyle.Underline)
  Else
    oFont = New Font(sItem, ComboBox1.Font.Size, FontStyle.Strikeout)
  End If
 
  ' Brush für Textfarbe
  Dim oBrush As Brush = New SolidBrush(e.ForeColor)
 
  ' Hintergrund
  e.DrawBackground()
 
  ' Text (Schriftname) ausgeben
  e.Graphics.DrawString(sItem, oFont, oBrush, e.Bounds.X, e.Bounds.Y)
 
  ' Aufräumen
  oBrush.Dispose()
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de