لود کردن فونتهای ویندوز در یک drop down list

[kamkam]

خیلی تو اینترنت گشتم.ولی شاید درست سرچ نمیکنم.کسی بلده فونتهای ویندوزی رو که نرم افزار روی اون اجرا میشه لود کنه توی یک drop down list؟

[Farhad.B.S]

Dim SystemFonts As New System.Drawing.Text.InstalledFontCollection()
Dim FontItem As FontFamily

For Each FontItem In SystemFonts.Families
ComboBox1.Items.Add(FontItem.Name)
Next

[kamkam]

واقعا ممنونم فرهاد جان