How to get the available fonts style on the server in vb.net

Get all available fonts on the server.


Private Sub LoadFonts()
Dim installed_fonts As New InstalledFontCollection
Dim font_families() As FontFamily = installed_fonts.Families()

' Display the font families.
For Each font_family As FontFamily In font_families
' font_family.Name & ", "
ddlFontName.Items.Add(font_family.Name)
Next font_family
End Sub

Hope this help you.