Public Class Form1
 
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    With ToolStripComboBox1
      For Each f In FontFamily.Families
        .Items.Add(f)
      Next
      .ComboBox.DrawMode = DrawMode.OwnerDrawFixed
      .ComboBox.DropDownStyle = ComboBoxStyle.DropDownList
      AddHandler .ComboBox.DrawItem, AddressOf ToolStripComboBox1_DrawItem
    End With
  End Sub
 
  ' Vertikale Zentrierung
  Private Shared ReadOnly SF As New StringFormat With {.LineAlignment = _
    StringAlignment.Center}
 
  ' Items zeichnen
  Private Sub ToolStripComboBox1_DrawItem(sender As Object, e As _
    DrawItemEventArgs)
    If e.Index < 0 Then Return
    With ToolStripComboBox1
 
      Dim ff As FontFamily = DirectCast(.Items(e.Index), FontFamily)
      Dim fs As Single = .Font.Size
 
      Dim oFont As Font
      If ff.IsStyleAvailable(FontStyle.Regular) Then
        oFont = New Font(ff, fs, FontStyle.Regular)
      ElseIf ff.IsStyleAvailable(FontStyle.Italic) Then
        oFont = New Font(ff, fs, FontStyle.Italic)
      ElseIf ff.IsStyleAvailable(FontStyle.Bold) Then
        oFont = New Font(ff, fs, FontStyle.Bold)
      ElseIf ff.IsStyleAvailable(FontStyle.Underline) Then
        oFont = New Font(ff, fs, FontStyle.Underline)
      Else
        oFont = New Font(ff, fs, FontStyle.Strikeout)
      End If
 
      e.DrawBackground()
      Using oBrush As New SolidBrush(e.ForeColor)
        e.Graphics.DrawString(ff.Name, oFont, oBrush, e.Bounds, SF)
      End Using
    End With
  End Sub
 
End Class