Module1.vb
Imports System.Drawing Imports Bytescout.BarCode Module Module1 Sub Main() ' Create and activate QRCode instance Using barcode As New QRCode() barcode.RegistrationName = "demo" barcode.RegistrationKey = "demo" ' Set background color barcode.BackColor = Color.Yellow ' Set foreground color barcode.ForeColor = Color.Red ' Set value barcode.Value = "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890" ' 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