private Sub test
Dim InputS As InputStream = File.OpenInput("path","FileName") ' of your arabic font
Dim pd As PDFjetPDF
pd.Initialize("test","FileTest") ' of your PDF
Dim pdCode As PDFjetCodePage ' This is an ENUM so no initialize needed
Dim F As PDFjetFont
F.Initialize4(pd,InputS,pdCode.UNICODE,True) 'Relevant Code
End Sub