Como enumerar las fuentes instaladas en el ordenador

Ya está, lo he encontrado nada más terminar de escribir. Ya que he sacado el
tema, lo pongo por si a alguien le interesa:


'Obtener la colección de fuentes instaladas
Dim fonts as New System.Drawing.Text.InstalledFontCollection()
'Obtener una matriz con todas las familias de fuentes instaladas
Dim FontFamilies() as FontFamily = fonts.Families
'Crear una lista delimitada por comas con los nombres de las familias
Dim list as string
Dim fontFam as FontFamily
For Each fontFam in fontFamilies
If list <>"" then list &= ", "
list &= fontFam.Name
Next

Debug.WriteLine (list)



"Jocayol" escribió en el mensaje
news:

Hola, ahora no me acuerdo como se podían enumerar los diferentes tipo de
fuentes que están instaladas en el ordenador. Lo he estado mirando en la
ayuda y en los libros, pero a pesar de que sé que lo he leído no consigo
encontrarlo. ¿Me podéis ayudar?
Gracias