This example illustrates one technique for scanning a new file.
Private Sub cmdScanNew_Click()
'Use the Admin Control's Save As dialog box to allow the
'user to specify a filename for the new file.
ImgAdmin1.ShowFileDialog SaveDlg
'Set the Scan control's Image property to the new filename.
ImgScan1.Image = ImgAdmin1.Image
'Scan a new file using the Scan New Dialog box.
'Note: You do not need to set the Image property before you
'call the dialog box. It may be set in the dialog box if desired.
ImgScan1.ShowScanNew
End Sub