Hi
test below code and if want more help say to me.

oMyForm = CREATEOBJECT("form")
oMyForm.AddObject("oleOutline","olecontrol","Imaging.ScanCtrl.1")

oMyForm.oleOutline.filetype=1
oMyForm.oleOutline.image="d:\testimg.tif"
oMyForm.oleOutline.multipage=.f.
oMyForm.oleOutline.pageoption=1
oMyForm.oleOutline.scanto=2
oMyForm.oleOutline.scroll=.f.
oMyForm.oleOutline.showsetupbeforescan=.T.
oMyForm.oleOutline.stopscanbox=.f.

oMyForm.oleOutline.openscanner
oMyForm.oleOutline.startscan
oMyForm.oleOutline.closescanner



it is simple but work good.