Dynamsoft TWAIN Products

Dim iDocumentCounter As Integer
iDocumentCounter = 0 'Set initialize value

Private Sub BeginScan()
    Twain.OpenSource
    Twain.IfShowUI = False
    Twain.IfDisableSourceAfterAcquire = True
    Twain.IfTiffMultiPage = False    'Do not save as multi-page TIFF

    If Twain.Duplex <> 0 Then
        Twain.IfDuplexEnabled = True  'Enable duplex
    End If
    If Twain.IfFeederEnabled = True Then
        Twain.XferCount = -1   'Scan multiple images
        Twain.IfAutoFeed = True  'Auto feed
        If Twain.IfFeederLoaded = True Then
            Twain.AcquireImage
        End If
    End If
End Sub

Private Sub Twain_OnPosttransfer()
    iDocumentCounter = iDocumentCounter + 1

    If Twain.SaveAsTIFF("c:\Image\" + Str(iDocumentCounter) + ".tif", 0) = False Then
        MsgBox Twain.ErrorString
    End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dynamicDotNetTwain.MaxImagesInBuffer = 15
  End Sub