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