How can I add System Font Names to a List box

[bconner]

I have a List box that I would like to populate with the Windows Font Names, how can I do this?

 

[MattP]

		Dim fc As New Drawing.Text.InstalledFontCollection
		Dim ff As FontFamily() = fc.Families()
		For Each family As FontFamily In ff
			Me.ListBox1.Items.Add(family.Name)
		Next

 

[bconner]

Thanks Matt!