stu999
Board Regular
- Joined
- Aug 28, 2008
- Messages
- 183
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!?!
If anyone can see where i am going wrong would be most appreciated.
Thanks
Code:
Private Sub Form_Load()
Dim i As Long
For i = 0 To Screen.FontsCount - 1
Combo1.AddItem Screen.Fonts(i)
Next
End Sub
Thanks
Last edited by a moderator: