by http://visualbasicfaq.bizland.com (2 Submissions)
Category: Windows System Services
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 31st March 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Get List of Fonts Installed on the machine.
Private Sub Form_Load()
Dim i As Integer
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next i
Combo1.Text = Combo1.List(0)
End Sub