Module1.vb
Imports Bytescout.BarCode
Module Module1
Sub Main()
' Create and activate QRCode instance
Using barcode As New QRCode()
barcode.RegistrationName = "demo"
barcode.RegistrationKey = "demo"
' Enable generation of GS1 version of QR Code
barcode.IsGS1 = True
' Set value that is formatted according to GS1 specification
barcode.Value = "(01)07046261398572(17)130331(10)TEST5632(21)19067811811"
' Save barcode image to file
barcode.SaveImage("result.png")
End Using
' Open the image in default image viewer (for demo purpose)
Process.Start("result.png")
End Sub
End Module