EnableProgressStatusEvent Example for Visual Basic

Private Sub RasterDoc_ProgressStatus(ByVal ID As LTRASTERDOCLib.OCR_PROCESS_ID, ByVal iPercent As Integer, ByVal iAcceptCharCount As Integer, ByVal iRejectCharCount As Integer, ByVal lObjSize As Long, ByVal bstrObjData As String) 
   RasterDoc.StopProgressStatusEvent = False
End Sub


Private Sub Command36_Click()
   RasterDoc.EnableProgressStatusEvent = True
End Sub