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
