Fonts Property Example

This example prints a list of the printer fonts in a ListBox control. To try this example, paste the code into the Declarations section of a form that has a ListBox control named List1. Press F5 to run the program, and then click the form.

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