[Only3]

from file
Dim pfc As New Drawing.Text.PrivateFontCollection()
pfc.AddFontFile("C:\Font.ttf")
Font = New Font(pfc.Families(0), 10, FontStyle.Regular)

[Only3]

try this
Dim res = My.Resources.font
Dim pfc As New Drawing.Text.PrivateFontCollection
pfc.AddMemoryFont(System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(res, 0), res.Length)
Font = New Font(pfc.Families(0), 10, FontStyle.Regular)