Module1.vb
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 wide to narrow ratio
barcode.WideToNarrowRatio = 10
' 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: