Program.vb
Imports Bytescout.BarCodeReader Module Program Sub Main() Try 'Read Barcode Process Dim reader As Reader = New Reader() reader.RegistrationKey = "demo" reader.RegistrationName = "demo" ' Set Barcode type to find reader.BarcodeTypesToFind.QRCode = True ' Read barcodes Dim barcodes() As FoundBarcode = reader.ReadFrom("corrupted_barcode_qrcode.png") For Each code As FoundBarcode In barcodes Console.WriteLine("Found barcode with type '{0}' and value '{1}'", code.Type, code.Value) Next Catch ex As Exception Console.WriteLine(ex.Message) End Try Console.WriteLine("Press any key to exit...") Console.ReadLine() End Sub End Module