Visual Basic - Como puedo saber las fuentes instaladas en windows

Hola Amigos:

Buenos dias. Alguien sabe como puedo obtener los nombres de las fuentes que hay instaladas en Windows ??.

Un Saludo. Miguel

Dim i As Integer

For i=0 to Screen.FontCount -1
List1.AddItem Screen.Fonts(i)
Next i

Pones esto en el Load de un formulario que debe tener un listbox, el cual se llenara con las fuentes que puedes mostrar en la pantalla.

Salu2