Module1.vb
Imports System.Drawing Imports Bytescout.BarCode Module Module1 Sub Main() ' Create new barcode Dim barcode As New Barcode() ' Set symbology Barcode.Symbology = SymbologyType.Codabar ' Set value Barcode.Value = "123456" ' Set back color barcode.BackColor = Color.Yellow ' Set fore color barcode.ForeColor = Color.DarkGreen ' Save barcode to image Barcode.SaveImage("result.png") ' Show image in default image viewer Process.Start("result.png") End Sub End Module
Click here to get your Free Trial version of the SDK
also available as: