Page Example VB

This example shows how to insert a scanned page before page 1 of an existing image file.

Private Sub cmdInsert_Click()
    'Use the ImgAdmin control to select a file for display
    'in the ImgEdit control.
    ImgAdmin1.ShowFileDialog OpenDlg  '0
    ImgEdit1.Image = ImgAdmin1.Image
    ImgEdit1.Display
    'For insert or append, set the Scan control's
    'Image property.
    ImgScan1.Image = ImgAdmin1.Image
    'MultiPage must be set to True in order to create
    'files with more than one page.
    ImgScan1.MultiPage = True
    ImgScan1.PageOption = InsertPages '3
    ImgScan1.Page = 1
    ImgScan1.FileType = TIFF '1
    'Scan using the Scan Page dialog box.
    ImgScan1.ShowScanPage
End Sub