Module1.vb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | 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 bar height barcode.BarHeight = 500 ' 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: