使用未安装的自定义字体

默认宋体效果：

使用程序目录下未安装的自定义字体“华文琥珀”：

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim PFC As New Drawing.Text.PrivateFontCollection()
        PFC.AddFontFile(AppDomain.CurrentDomain.BaseDirectory & "华文琥珀.ttf")
        TextBox1.Font = New Font(PFC.Families(0), TextBox1.Font.Size)
    End Sub

效果：​​​​​​​