Private Sub Form_Load()Dim counterFor counter = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(counter)NextEnd Sub