Sub FillFonts()
        Dim installed_fonts As New InstalledFontCollection
        ComboBox1.Items.Clear()
        For Each font_family As FontFamily In installed_fonts.Families
            ComboBox1.Items.Add(font_family.Name)
        Next
        ComboBox1.SelectedIndex = 0
    End Sub
 
    Sub SetFont(ByVal Size As Integer, ByVal Style As FontStyle, ByVal Unit As _
      GraphicsUnit)
        Dim myFont As New Font(ComboBoxEx1.SelectedItem.ToString, Size, Style, _
        Unit)
    End Sub