Getting a list of all fonts installed

Hiya,

Is there an API or other way of getting the system to return a list of all fonts that are installed on it?

Thanx

Matt

This will display all available fonts in a list box.

Code:

---

    Dim I  ' Declare variable.
    For I = 0 To Screen.FontCount - 1  ' Determine number of fonts.
   
        List1.AddItem Screen.Fonts(I)  ' Put each font into list box.
    Next I

---

------------------
Ishamel
[email protected]

How can I tell you I love you when you are sitting on my face?

Can you format the list so that it is alphabetical?

Quote:

---

Solinary: Can you format the list so that it is alphabetical?

---

Set the Sorted property in the Listbox to True. That will put all the fonts in alphabetical order.

Thank you