Get a list of all Fonts

'This will get all of the available fonts on the computer and add

'them to the 'cmbFont' combobox control.

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

System.Drawing.Text.InstalledFontCollection

Dim fFamily As FontFamily

For Each fFamily In f.Families

lst.Items.Add(fFamily.Name)

Next