Imports IronOcr
Imports System

Dim ocrTesseract = New IronTesseract()

AddHandler ocrTesseract.OcrProgress, Sub(_, ocrProgressEventsArgs)
                                         Console.WriteLine(ocrProgressEventsArgs.ProgressPercent & "%   " & ocrProgressEventsArgs.Duration.TotalSeconds & "s")
                                     End Sub

Using input As New OcrInput()
    input.LoadPdf("large.pdf")

    ' Progress events will fire during the read operation even if the main thread is blocked.
    Dim result = ocrTesseract.Read(input)
End Using