golden hour

/opt/alt/libharu/usr/share/libharu/bindings/vb.net/demo

File/Folder	Size	Actions
Encryption.vb	1.17 KB
FontDemo.vb	2.75 KB
ImageDemo.vb	5.03 KB
LineDemo.vb	8.86 KB
OutlineDemo.vb	2.45 KB
Permission.vb	1.35 KB
RawImageDemo.vb	2.92 KB
SlideShowDemo.vb	5.13 KB
TextDemo.vb	9.46 KB

Edit: Encryption.vb

Imports HPdf

Module Encryption

Sub Main()
        Const owner_passwd As String = "owner"
        Const user_passwd As String = "user"
        Const text As String = "This is an encrypt document example."
        Console.WriteLine("libhpdf-" + HPdfDoc.HPdfGetVersion())

Try
            Dim pdf As HPdfDoc = New HPdfDoc()

' create default-font 
            Dim font As HPdfFont = pdf.GetFont("Helvetica", Nothing)

' add a new page object. 
            Dim page As HPdfPage = pdf.AddPage()

page.SetSize(HPdfPageSizes.HPDF_PAGE_SIZE_B5, HPdfPageDirection.HPDF_PAGE_LANDSCAPE)

page.BeginText()
            page.SetFontAndSize(font, 20)
            Dim tw As Single = page.TextWidth(text)
            page.MoveTextPos((page.GetWidth() - tw) / 2, (page.GetHeight() - 20) / 2)
            page.ShowText(text)
            page.EndText()

pdf.SetPassword(owner_passwd, user_passwd)

' save the document to a file 
            pdf.SaveToFile("Encryption.pdf")

Catch ex As Exception
            Console.Error.WriteLine(ex.Message)
        End Try
    End Sub
End Module