Imports System
Imports System.Drawing
''' <summary>
''' merci à PsychoCoder car le code est de lui
''' http://www.dreamincode.net/forums/index.php?showuser=40184
''' http://www.dreamincode.net/code/snippet1602.htm
''' 
''' </summary>
''' <remarks></remarks>
Public Class Form1
    Private Shared PFC As Drawing.Text.PrivateFontCollection
    Private Shared NewFont_FF As Drawing.FontFamily
    ''' <summary>
    ''' Function to return a new font based on the font file passed to it
    ''' </summary>
    ''' <param name="name">Path to the new font file</param>
    ''' <param name="style">The FontStyle of the new font</param>
    ''' <param name="size">T size of the new font</param>
    ''' <returns>A new font</returns>
    ''' <remarks></remarks>
    Private Function CreateFont(ByVal name As String, ByVal style As Drawing.FontStyle, ByVal size As Single, ByVal unit As Drawing.GraphicsUnit) As Drawing.Font
        'Create a new font collection
        PFC = New Drawing.Text.PrivateFontCollection
        'Add the font file to the new font
        '"name" is the qualified path to your font file
        PFC.AddFontFile(name)
        'Retrieve your new font
        NewFont_FF = PFC.Families(0)
        Return New Drawing.Font(NewFont_FF, size, style, unit)


    End Function
    ''' <summary>
    ''' faut pas oublier de mettre un fichier font en ressource
    ''' ici c'est My.Resources._80db ( 80db.ttf )
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Example Usage
        Dim apath As String = Application.StartupPath
        IO.File.WriteAllBytes(apath & "\NewFont.ttf", My.Resources._80db)
        Dim fontfile As String = (apath & "\NewFont.ttf")
        Label1.Font = CreateFont(fontfile, FontStyle.Regular, 12, GraphicsUnit.Point)
        Label1.Text = "yes it work"
    End Sub
End Class