Have you ever wanted a combo box in your WinForms application that listed all the available fonts on the computer where it was running? Below, you’ll find a simple script to do do just that.

    Private Sub AddAllFonts()
        Using grph As Graphics = Me.CreateGraphics
            For Each fntfam As FontFamily In FontFamily.GetFamilies(grph)
                ComboBox1.Items.Add(fntfam.Name)
            Next
        End Using
    End Sub