[VB6] Visualizzare elenco fonts di sistema

[Gaionick]

Originariamente inviato da Boolean

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

Boolean

Non funzia, mi da comando non riconosciuto (quello che ho evidenziato in grassetto).