Quer Exibir e Visualizar as Fontes instaladas no seu Sistema ?

Elementar meu caro , Watson !!!

Faça o seguinte:

1-) Inicie um novo projeto no VB e insira um controle ListBox (List1 ) no formulário padrão.

2-) Rode o seu projeto e a caixa de listagem irá exibir as fontes do seu sistema.

4-) Clique na fonte desejada e irá visualizar o formato da fonte.

  O código é o seguinte:

Private Sub Form_Load()
  Dim contador As Integer
  For contador = 0 To Screen.FontCount - 1
     List1.AddItem Screen.Fonts(contador)
  Next
End Sub

Private Sub List1_Click()
  Static tempheight As Single
  If tempheight = 0 Then tempheight = List1.Height
  List1.Font.Name = List1.List(List1.ListIndex)
  List1.Height = tempheight
End Sub