View: - 400
'SET COMBO PROPERTY SORTED = TRUE For i = 1 To Screen.FontCount - 1 Combo1.AddItem Screen.Fonts(i) Next
