Dim fontFamilies() As FontFamily = (New Drawing.Text.InstalledFontCollection).Families

ListBox1.Items.Clear()
For Each ff As FontFamily In fontFamilies
    ListBox1.Items.Add(ff.Name)
Next