ImageScanner

Private Sub Command1_Click()
With ImgScan1
.ScanTo = FileOnly
.Image = App.Path & "\prova"
.OpenScanner
.StartScan
.CloseScanner
End With
End Sub