VB.NET: Twain Scan for Document & Images

Imports System.IO
Imports System.Drawing.Printing
Imports Yiigo.Imaging
Imports Yiigo.Imaging.Processing
Imports Yiigo.Imaging.TwainScan

' Initialize Twain scan
Private Sub Scanning()
    Dim acq As New AcquireImage()
    AddHandler acq.ImageAcquireImaged, New ImageAcquireImagedEventHandler(AddressOf(acq_ImageAcquireImaged))
    Dim device As Device = acq.Devices.[Default]
    If device.TryOpen() Then
        device.ModalAcquireImage = True
        device.AcquireImage()
        device.Close()
    End If
End Sub

Private Sub acq_ImageAcquireImaged(sender As Object, e As AcquireImageEventArgs)
    Dim myImage As Yiigo.Imaging = Yiigo.Imaging.FromBitmap(e.Image)
End Sub

' Acquire Size and Position
Me.device.Units = UnitType.Inches
If Me.device.Units <> UnitType.Inches Then
    Return
End If
Me.device.Frame = New System.Drawing.RectangleF(0, 0, 8.5, 11)

' Scan a multi page document into a PDF or TIFF file
Public Class AcquireImageClass
    Private _acquireCanceled As Boolean
    Private myAcquireImage As New AcquireImage(Me)
    Public Sub ScanImages()
        _acquireCanceled = False
        myAcquireImage.AcquireImageCanceled += New EventHandler(OnAcquireImageCanceled)
        myAcquireImage.AcquireImageFinished += New EventHandler(OnAcquireImageFinished)
        myAcquireImage.ImageAcquireImaged += New ImageAcquireImagedEventHandler(OnImageAcquireImaged)
        Dim activeDevice As Device = myAcquireImage.ShowSelectSource()
        activeDevice.AcquireImage()
    End Sub


    Private Sub OnImageAcquireImaged(sender As Object, e As AcquireImageEventArgs)
        If e.Image IsNot Nothing Then
            Dim enc As New TiffEncoder(TiffCompression.[Default], True)
            Dim fs As New FileStream("outputTiff.tif", FileMode.OpenOrCreate, FileAccess.ReadWrite)
            enc.Save(fs, Yiigo.Imaging.FromBitmap(e.Image), Nothing)
            fs.Close()
        End If
    End Sub


    Private Sub OnAcquireImageCanceled(sender As Object, e As EventArgs)
        _acquireCanceled = True
    End Sub


    Private Sub OnAcquireImageFinished(sender As Object, e As EventArgs)
        If _acquireCanceled Then
            Return
        End If
        Dim col As New PdfImageCollection()
        Dim dec As New TiffDecoder()
        Dim fs As New FileStream("outputTiff.tif", FileMode.Open, FileAccess.Read)
        Dim frameCount As Integer = dec.GetFrameCount(fs)
        fs.Close()
        Dim i As Integer = 0
        While i < frameCount
            col.Add(New PdfImage("outputTiff.tif", i, PdfCompressionType.Auto))
            System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
        End While

        Dim outStream As New FileStream("outputPdf.pdf", FileMode.OpenOrCreate, FileAccess.ReadWrite)
        Dim enc As New PdfEncoder()
        enc.Save(outStream, col, Nothing)
    End Sub

End Class

' Upload Image to Sever
Private Sub UploadImage(image As System.Drawing.Bitmap)
    Dim post As New Yiigo.Twain.HttpPost()
    post.FormData.Add("image1", image, "filename.png")
    post.FormData.Add("username", user)
    post.FormData.Add("password", password)
    Dim ret As String = post.PostData("http://www.website.com/postImage.aspx")
End Sub