فونت های ویندوز

با این کد تمام فونت های ویندوز رو میتونی در ComboBox نشون بدی

کد:
Dim font_collect As New Drawing.Text.InstalledFontCollection

For Each f As FontFamily In font_collect.Families
Me.ComboBox1.Items.Add(f.Name)
Next