Imports System.Text
Imports Bytescout.BarCode

Module Module1

    Sub Main()

        ' Create and activate QRCode instance
        Using barcode As New QRCode()

            barcode.RegistrationName = "demo"
            barcode.RegistrationKey = "demo"

            ' Set the character encoding to UTF8
            barcode.CharacterEncoding = Encoding.UTF8

            ' Set Unicode barcode value
            barcode.Value = "日本"

            ' Show barcode caption (optional)
            barcode.DrawCaption = True

            ' 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