Private Function GetFontNames() As List(Of String)
        Dim retVal As New List(Of String)
        Dim fonts As New System.Drawing.Text.InstalledFontCollection
 
        For Each displayFont As FontFamily In fonts.Families
            retVal.Add(displayFont.Name)
        Next
 
        Return retVal
    End Function

    cmbFonts.Items.AddRange(GetFontNames.ToArray)