这是摘录(使用
PrivateFontCollection)：
Dim pfc As New PrivateFontCollection()
pfc.AddFontFile("C:\Path To\PALETX3.ttf")
label1.Font = New Font(pfc.Families(0),16,FontStyle.Regular)
由此转换：Load And Use Custom Font Without Installing It.
另请查看：@L_502_2@