Private Sub Form_Load() Dim counter For counter = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(counter) Next End Sub