Come posso recuperare la lista dei Fonts installati nel sistema?

Utente HTML.it
chiede

Come posso recuperare la lista dei Fonts installati nel sistema?

Redazione HTML.it
risponde

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