[VB] 取得電腦內部所有安裝字型

利用InstalledFontCollection來取得電腦內部所有字型

Dim Obj_FontColl As New System.Drawing.Text.InstalledFontCollection
'這邊是把取得的字型名稱加到comboBox

For Each Obj_FontFamily As System.Drawing.FontFamily In Obj_FontColl.Families
cbForn.Items.Add(Obj_FontFamily.Name)
Next