List Installed Fonts

Nearly every text editor needs a combo box listing all the fonts installed
on the PC, so the user can choose what font some text appears in.
Fortunately, this is very simple in VB, using the Screen.Fonts() array. You
could also use the Printer.Fonts() array to list the available printer
fonts.

Private Sub Form_Load()
Dim I As Integer ' Declare variable.
For I = 0 To Screen.FontCount -1 ' Determine number of fonts.
List1.AddItem Screen.Fonts (I) ' Put each font into list box.
Next I
End Sub