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