OcrProgress Example VB

When the OCRProgress event is fired, the Progress dialog is updated at various intervals to indicate the percent the OCR operation has completed for the current page.

Private Sub Imgocr1_OcrProgress(ByVal Percentage As Integer)
'NOTE: The ProgressNotification property must be set to TRUE in order
'for progress events to be sent to the application.
    Imgocr1.ShowProgress = True   'Show progress dialog
    Select Case Percentage
        Case Is > 95
            Imgocr1.ProgressDialogCaption = "almost complete"
        Case Is > 74
            Imgocr1.ProgressDialogCaption = " ~75% complete"
        Case Is > 49
            Imgocr1.ProgressDialogCaption = " ~50% complete"
        Case Is > 24
            Imgocr1.ProgressDialogCaption = " ~25% complete"
        Case Else
            Imgocr1.ProgressDialogCaption = " mydoc.tif"
        End Select
End Sub