VBA populate combo box with System Font Names

[stu999]

I am trying to populate combo box with system font list, found this code which should work but i get no values in the combo box!?!

Private Sub Form_Load()
Dim i As Long
For i = 0 To Screen.FontsCount - 1
Combo1.AddItem Screen.Fonts(i)
Next
End Sub

If anyone can see where i am going wrong would be most appreciated.
Thanks

 

[stu999]

Still trying to get this to work.
I am now getting an error on .FontsCount
Compile Error;
Method or data member not found

If anyone can shed any light would be appreicated.

Cheers