Использование нестандартных шрифтов в приложении

        Dim f As System.Drawing.Text.PrivateFontCollection = New System.Drawing.Text.PrivateFontCollection()
        f.AddFontFile("C:\Victorian Gothic One.ttf")
        Label1.Font = New Font(f.Families(0), 30)

    Dim Fnts As String()
    Dim f As System.Drawing.Text.PrivateFontCollection = New System.Drawing.Text.PrivateFontCollection()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Fnts = IO.Directory.GetFiles(Application.StartupPath & "\Fonts", "*.ttf")
            For Each S As String In Fnts
                f.AddFontFile(S)
                ComboBox1.Items.Add(f.Families(ComboBox1.Items.Count).Name)
            Next
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Try
            If f.Families(ComboBox1.SelectedIndex).IsStyleAvailable(FontStyle.Bold) Then
                Label1.Font = New Font(f.Families(ComboBox1.SelectedIndex), 8, FontStyle.Bold)
            Else
                Label1.Font = New Font(f.Families(ComboBox1.SelectedIndex), 8, FontStyle.Regular)
            End If
 
        Catch ex As Exception
            MsgBox(ErrorToString)
        End Try
    End Sub