Private Sub AddPageNumberInTOC(ByVal pageNumberPosition As List(Of TOCPageNumbers), ByVal pageNumber As List(Of Integer))
Dim count As Integer = 0
For i As Integer = 0 To pageNumberPosition.Count - 1
Dim ppagecount As Integer = pageNumber.Count
Dim pagepos As Integer = pageNumberPosition.Count
Dim points As PointF = pageNumberPosition(i).COord
Dim page As PdfPage = pageNumberPosition(i).PDFPage
page.Graphics.DrawString((pageNumber(count) + 1).ToString(), Font, PdfBrushes.Black, New PointF(page.Graphics.ClientSize.Width - 40, points.Y))
Dim bounds As RectangleF = New RectangleF(points.X, points.Y, page.Graphics.ClientSize.Width - points.X, 10)
Dim documentLinkAnnotation As PdfDocumentLinkAnnotation = New PdfDocumentLinkAnnotation(bounds)
documentLinkAnnotation.AnnotationFlags = PdfAnnotationFlags.NoRotate
documentLinkAnnotation.Color = Color.Transparent
documentLinkAnnotation.Destination = New PdfDestination(document.Pages(pageNumber(count)))
documentLinkAnnotation.Destination.Location = PointF.Empty
page.Annotations.Add(documentLinkAnnotation)
count += 1
Next
End Sub