EnumFont

Private Sub DisplayFonts()
Dim X As Integer
For X = 0 To Printer.FontCount - 1
lstPrinter.AddItem Printer.Fonts(X)
Next X
For X = 0 To Screen.FontCount - 1
lstScreen.AddItem Screen.Fonts(X)
Next X
End Sub