Dim CommonDialog1 As New WIA.CommonDialog
            ScanItem = New ScannerItems
 
            ScanItem.ID = frMainManagerForm.Setting.SetNewID( _
              frMainManagerForm.Setting.Scanner.Items.Count, "scn")
            ScanItem.Name = "SCN" & Now.Date.ToShortDateString.Replace(".", "") _
            & "_" & SetNewID(PageCounter) & ".jpg"
            ScanItem.Path = Application.StartupPath & "\Setting\ScanTemp"
            ScanItem.FullPath = ScanItem.Path & "\" & ScanItem.Name
 
            Dim FileName As String = ScanItem.Name.Remove(ScanItem.Name.Length _
              - 4, 4)
            trvDocument.Nodes(0).Nodes.Add(FileName & "(" & ScanItem.ID & ")")
 
            Dim image As New WIA.ImageFile
 
 
 
 
            image = CommonDialog1.ShowAcquireImage( _
              WIA.WiaDeviceType.ScannerDeviceType, _
              WIA.WiaImageIntent.UnspecifiedIntent, _
              WIA.WiaImageBias.MaximizeQuality, , True, False, True)
            image.SaveFile(ScanItem.FullPath)
            image = Nothing
            ScanItem.Image = New Bitmap(ScanItem.FullPath)
 
            frMainManagerForm.Setting.Scanner.Items.Add(ScanItem)
            pbxPagePreview.Image = image
            trvDocument.ExpandAll()
            PageCounter += 1