Imports Bytescout.BarCode

Class Program
	Friend Shared Sub Main()
		' Create new barcode and register it.
		Dim barcode As New Barcode()
		barcode.RegistrationName = "demo"
		barcode.RegistrationKey = "demo"

		' Set symbology
        barcode.Symbology = SymbologyType.PDF417
		' Set value
		barcode.Value = "Sample barcode"

        ' Place barcode at bottom-right corner of the the first TIFF page
        barcode.DrawToImage("wikipedia.tif", 0, 550, 1100, "result.tif")

        ' Open output file in default image viewer
        System.Diagnostics.Process.Start("result.tif")
	End Sub
End Class