FontCount 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, and then press F5 and 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