Imports Bytescout.BarCode

Class Program
    Friend Shared Sub Main()
        ' Create new barcode and register it.
        Dim barcode As New Barcode()
        barcode.RegistrationName = "demo"
        barcode.RegistrationKey = "demo"

        ' Set symbology
        barcode.Symbology = SymbologyType.DataMatrix
        ' Set value
        barcode.Value = "Sample barcode"

        ' Place barcode at top-right corner of every document page
        barcode.DrawToPDF("wikipedia.pdf", -1, 500, 50, "result.pdf")

        ' Open output file in default PDF viewer
        System.Diagnostics.Process.Start("result.pdf")
    End Sub
End Class