Come posso recuperare la lista dei Fonts installati nel sistema?

Recuperare la lista dei caratteri installati nel sistema
è molto semplice, dal momento che basta utilizzare la
proprietà Fonts dell’oggetto Screen.
L’esempio seguente inserisce la lista dei caratteri in un
ListBox di nome List1:

Dim I As Integer

For I = 0 To Screen.FontCount – 1

List17.AddItem Screen.Fonts(I)

Next I