To create a list of fonts (combo box with all the font names installed in the system) we can use InstalledFontCollection which represents the fonts installed on the system.

[VB.NET CODE STARTS]

' Need to have System.Drawing reference
Imports System
Imports System.Drawing.Text
Imports System.Drawing
 
' Create a obejct of InstalledFontCollection
Dim InstalledFonts As New InstalledFontCollection
' Gets the array of FontFamily objects associated with this FontCollection.
Dim fontfamilies() As FontFamily = InstalledFonts.Families()
 
'   Populates font combobox with the font name
 
For Each fontFamily As FontFamily In fontfamilies
      cboFont.Properties.Items.Add(fontFamily.Name)
Next

[VB.NET CODE ENDS]