1、1：下载工具所述的字库文件
2、2：创建基字体
BaseFont.AddToResourceSearch("iTextAsian.dll")
BaseFont.AddToResourceSearch("iTextAsianCmaps.dll")
bf = BaseFont.CreateFont("STSong-Light,Italic", "UniGB-UCS2-H", BaseFont.NOT_EMBEDDED)
3、3：创建用户字体
Dim fontUser As Font
fontUser = New Font(bf, 3)