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 
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:
Visual Basic:
-
Private Sub Command1_Click()
-
Dim font As Integer
-
List1.Clear
-
For font= 0 To Screen.FontCount - 1
-
List1.AddItem Screen.Fonts(font)
-
Next font
-
List1.ListIndex = 0
-
End Sub
-
Private Sub List1_Click()
-
Text1.Text = List1.List(List1.ListIndex)
-
Text1.Font = List1.List(List1.ListIndex)
-
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:
Tambien si lo deseas puedes visitar mi blog
