Dim DataList As List = Array As String("eng.cube.bigrams","eng.cube.fold","eng.cube.lm","eng.cube.nn","eng.cube.params","eng.cube.size","eng.cube.word-freq","eng.tesseract_cube.nn","eng.traineddata","osd.traineddata")
iOCR.Initilize(True,"iOCR",DataList,File.DirDocuments,"eng")
iOCR.MaximumRecognitionTime = 60
iOCR.EngineMode=iOCR.EngineModeTesseractOnly