[VB6] Visualizzare elenco fonts di sistema

[Boolean]

For K = 0 To Screen.FontCount - 1
    Combo1.AddItem Screen.Fonts(K)
Next

Boolean