Loading Font Names into a ComboBox

Does anyone know how to load all the font names into a combobox???

Set the Sorted property to True and...

VB Code:

Dim i As Long
For i = 0 To Screen.FontCount - 1
    cboFonts.AddItem Screen.Fonts(i)
Next i

You can also use the Printer object with the same properties.

Thanks filburt

ya, thanks filburt i needed it too :D

I feel so helpful. :D