Const h As Single = 20
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.ComboBox1.DrawMode = DrawMode.OwnerDrawVariable
        For Each f As FontFamily In Font.FontFamily.Families
            Me.ComboBox1.Items.Add(f)
        Next
    End Sub
    Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
        Dim f As FontFamily = Me.ComboBox1.Items.Item(e.Index)
        e.DrawBackground()
        e.DrawFocusRectangle()
        e.Graphics.DrawString(f.Name, New Font(f.Name, h), Brushes.Black, _
          e.Bounds.X, e.Bounds.Y)
    End Sub
    Private Sub ComboBox1_MeasureItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MeasureItemEventArgs) Handles ComboBox1.MeasureItem
        e.ItemHeight = h * 1.5
    End Sub