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