Imports System.Windows.Forms.VisualStyles.VisualStyleElement
 
Public Class frmFontCombo
 
    'Namespace genau angeben
    Dim WithEvents cmb As New Windows.Forms.ComboBox With
        {.Parent = Me, .Width = 150, .DropDownStyle = _
          ComboBoxStyle.DropDownList}
 
 
 
    Private Sub frmFontCombo_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
        FillCombobox()
    End Sub
 
 
    Private Sub FillCombobox()
 
        ' alle verfügbaren Schriften auflisten
        With cmb.Items
            For Each oFont As FontFamily In Font.FontFamily.Families
                .Add(oFont)
            Next
        End With
 
        ' Wir möchten uns um die Ausgabe der 
        ' Listen-Einträge selbst kümmern
        cmb.DrawMode = DrawMode.OwnerDrawFixed
    End Sub
 
 
    Private Sub cmb_DrawItem(ByVal sender As Object,
         ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb.DrawItem
 
        Dim sitem As String, ofont As Drawing.Font
        If e.Index < 0 Then Exit Sub
 
        With cmb
            ' ComboBox-Eintrag (Schriftname)
            sitem = .Items(e.Index).Name
 
            ' Neues Schrift-Objekt erzeugen und verfügbare Styles 
            ' berücksichtigen
            Dim oFamily As FontFamily = .Items(e.Index)
            If oFamily.IsStyleAvailable(FontStyle.Regular) Then
                ofont = New Font(sItem, .Font.Size, FontStyle.Regular)
            ElseIf oFamily.IsStyleAvailable(FontStyle.Italic) Then
                ofont = New Font(sItem, .Font.Size, FontStyle.Italic)
            ElseIf oFamily.IsStyleAvailable(FontStyle.Bold) Then
                ofont = New Font(sItem, .Font.Size, FontStyle.Bold)
            ElseIf oFamily.IsStyleAvailable(FontStyle.Underline) Then
                ofont = New Font(sItem, .Font.Size, FontStyle.Underline)
            Else
                ofont = New Font(sItem, .Font.Size, FontStyle.Strikeout)
            End If
        End With
 
        ' Brush für Textfarbe
        Using 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)
        End Using
 
    End Sub
 
End Class