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" ' Set barcode value barcode.Value = "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890" ' Uncomment if you don't need margins 'barcode.Margins = New Margins(0, 0, 0, 0) 'barcode.DrawQuietZones = False ' 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