Get list of available fonts
The following is reprinted for archival purposes from Gary Beene's Information Center, with permission from Mr. Beene himself.
Private Sub CreateFontList()
' populate a list with system fonts
Dim Cnt As Long
Dim s1 As String
For Cnt = 1 To Screen.FontCount
s1 = Screen.Fonts(Cnt)
If s1 <> "" Then List1.AddItem s1
Next
List1.ListIndex = 0
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.