Bueno este post lo escribí hace algunos días en mi blog pero para ser sincero creo que puede servir mas por acá, ya que yo no cuento con muchas visitas :lol:

Bueno para crear el visualizador necesitamos lo siguiente:

    1 CommandButton: con el que hacemos la orden para cargar las fuentes
    1 ListBox: con la propiedad Sorted = True (aquí es donde se cagaran nuestras fuentes)
    1 TextBox: que es donde podremos testear las fuentes

Bueno aquí el código:

PLAIN TEXT
Visual Basic:
  1. Private Sub Command1_Click()
  2. Dim font As Integer
  3. List1.Clear
  4. For font= 0 To Screen.FontCount - 1
  5. List1.AddItem Screen.Fonts(font)
  6. Next font
  7. List1.ListIndex = 0
  8. End Sub
  9. Private Sub List1_Click()
  10. Text1.Text = List1.List(List1.ListIndex)
  11. Text1.Font = List1.List(List1.ListIndex)
  12. End Sub

List1.Clear: esta línea es importante ya que con ella limpiaremos la pantalla cada que demos click en el CommandButton, de lo contrario se cargaran las fuentes una y otra vez(de pendiendo de los click) pero "encimadas", esto quiere decir que si le das 3 click sin la linea List1.Clear tendras 3 arial.

Si lo deseas puedes descargar los archivos:

Descargar

Tambien si lo deseas puedes visitar mi blog