scan and save

Hello

I am trying to scan and save an image.
The code for scan is fine.
After the scan the program ask where I want to save the image, open the window ImgAdmin.

The point is if I choose my desktop the image is not there. I dont know how to save.



He is my code



Dim Arquivo As String

Arquivo = "C:\Clientes\Dr. Raul\PICTURES\teste1.jpg"

ImgScan1.OpenScanner
ImgScan1.StartScan
'ImgAdmin1.CompressionType = CompTypeJPEG 'this gives an error
ImgAdmin1.SaveAsName = Image2003 '
ImgAdmin1.ShowFileDialog SaveDlg ' Here is where I should choose the folder, but it is not saving

ImgScan1.CloseScanner