' Create a font
Dim font1 As XFont = New XFont("Tahoma", 11, XFontStyle.Bold, New XPdfFontOptions(PdfFontEncoding.Unicode))
Dim font2 As XFont = New XFont("Tahoma", 8, XFontStyle.Bold)
Dim font3 As XFont = New XFont("Tahoma", 8, XFontStyle.Regular, New XPdfFontOptions(PdfFontEncoding.Unicode))