by V. B. Fool (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: (1 Votes)
This code takes every font from the computer it is run on, and places it into a combo box. (not using printer.fonts but using screen.fonts)
Assumes
Must have a combo box called ftype
''for loop adds all font types in computer to combo box
fType.Clear ''clears combo box
For i = 0 To Screen.FontCount - 1 ''counts # of fonts
fType.AddItem Screen.Fonts(i) ''adds font to combo box
Next i