Visual Basic 6 - -ListBox-Questo codice che mostra?

Ho scaricato un esempio nella sezione visual basic\esempi
pero nn ho capito bene questo codice anche se escono nel listbox delle scritte non ho capito di cosa sono:
->Sorgente<-
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Screen.FontCount - 1
lstFonts.AddItem Screen.Fonts(i)
Next
End Sub

ciao non sono un professionista ma da cio che vedo questo ti servirebbe per cambiare il font ,

In questo modo hai solamente l'elenco dei nomi dei font installati nel sistema.

Ah.. capito molto gentili