- Aug 28, 2008
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.
Private Sub Form_Load() Dim i As Long For i = 0 To Screen.FontsCount - 1 Combo1.AddItem Screen.Fonts(i) Next End Sub
Last edited by a moderator: