VB .NET - Listar todas as fontes disponíveis

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim f As System.Drawing.Text.InstalledFontCollection = New System.Drawing.Text.InstalledFontCollection

        Dim fFamily As FontFamily

        For Each fFamily In f.Families

            ListBox1.Items.Add(fFamily.Name)

        Next

    End Sub

 Espero ter ajudado e att.