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 new margins barcode.Margins = New Bytescout.BarCode.Margins(0, 0, 100, 100) ' Save barcode to image barcode.SaveImage("result.png") ' Show image in default image viewer Process.Start("result.png") End Sub End Module
also available as: