Шрифт из ресурсов

            Dim buffer() As Byte
            buffer = My.Resources.gost 'Шрифт GOST Type A .tft
            Dim ip As IntPtr = Runtime.InteropServices.Marshal.AllocHGlobal(Runtime.InteropServices.Marshal.SizeOf(GetType(Byte)) * buffer.Length)
            Runtime.InteropServices.Marshal.Copy(buffer, 0, ip, buffer.Length)
            fnt.AddMemoryFont(ip, buffer.Length)
            lblKF_A4.Font = New Font(fnt.Families(0), 9, FontStyle.Italic)
            lblKF_A3.Font = New Font(fnt.Families(0), 9, FontStyle.Italic)

    Private Sub PrintReversNumber()
        Try
            Dim fs As New FontStyle
            fs = FontStyle.Italic Or FontStyle.Bold
            Dim font As New Font(fnt.Families(0), 14, fs)
            Dim g As Graphics = pbNumber.CreateGraphics
            g.Clear(Me.BackColor)
            g.TranslateTransform(200, 22)
            g.RotateTransform(180)
            g.DrawString(f.number, font, New SolidBrush(Color.Black), New PointF(0, 0))
            g.Dispose()
        Catch ex As Exception
            'не получилось что-то, и хсним
        End Try
    End Sub

fnt.AddFontFile(Application.StartupPath + "\resourses\gost.ttf")

            Dim ip As IntPtr = Runtime.InteropServices.Marshal.AllocCoTaskMem(Runtime.InteropServices.Marshal.SizeOf(GetType(Byte)) * buffer.Length)

Dim fc As New System.Drawing.Text.PrivateFontCollection()
 
        fc.AddMemoryFont(System.Runtime.InteropServices.GCHandle.Alloc(My.Resources.ARIALUNI, Runtime.InteropServices.GCHandleType.Pinned).AddrOfPinnedObject, My.Resources.ARIALUNI.Length)
 
        Dim f As Font = New Font(fc.Families(0), 20)

Namespace My
    Partial Friend Class MyApplication
        Protected Overloads Shared ReadOnly Property UseCompatibleTextRendering() As Boolean
            Get
                Return True
            End Get
        End Property
    End Class
End Namespace

buffer = My.Resources.gost 'Шрифт GOST Type A .tft