<div id="vb-1">
[color="#001701" face="Verdana, Arial, Helvetica, sans-serif"]Este es un ejemplo conocido de como listar todas las fuentes instaladas en el sistema en un control List o ComboBox,en este caso en un List.

Código:

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

Y despues si por ejemplo queres aplicar cada fuente al texto de un Textbox,le agregas este codigo al evento Click del List.

Código:

Private Sub List1_Click()
Text1.Text = "canalvisualbasic"
Text1.Font = List1.List(List1.ListIndex)
End Sub

Saludos.
[/color]