Public Shared Sub FillHTMLTreeRecursive(ByVal olParent As PDFLibNet.OutlineItemCollection(Of PDFLibNet.OutlineItem), ByRef htmlString As String, ByRef pdfDoc As PDFLibNet.PDFWrapper)
htmlString &= "<ul>"
For Each ol As PDFLibNet.OutlineItem In olParent
htmlString &= "<li><a href=""javascript:changePage('" & ol.Destination.Page & "')"">" &
Web.HttpUtility.HtmlEncode(ol.Title) & "</a></li>"
If ol.KidsCount > 0 Then
FillHTMLTreeRecursive(ol.Childrens, htmlString, pdfDoc)
End If
Next
htmlString &= "</ul>"
End Sub