Module1.vb
Imports System.IO
Imports Bytescout.BarCodeReader
Module Module1
    Sub Main()
        Const imageFile As String = "Barcode.jpg"
        Console.WriteLine("Reading barcode(s) from image {0}", Path.GetFullPath(imageFile))
        Dim reader As New Reader()
        reader.RegistrationName = "demo"
		reader.RegistrationKey = "demo"
        ' Set barcode type to find
        reader.BarcodeTypesToFind.All = True
        ' We recommend to use specific barcode types to avoid false positives, e.g.:
        ' reader.BarcodeTypesToFind.QRCode = True
        ' reader.BarcodeTypesToFind.Code39 = True;
        ' Read barcodes
        Dim barcodes As FoundBarcode() = reader.ReadFrom(imageFile)
        For Each barcode As FoundBarcode In barcodes
            Console.WriteLine("Found barcode with type '{0}' and value '{1}'", barcode.Type, barcode.Value)
        Next
        Console.WriteLine("Press any key to exit..")
        Console.ReadKey()
    End Sub
End Module
Click here to get your Free Trial version of the SDK
also available as: