Program.vb
Imports System.Diagnostics Imports Bytescout.BarCode Class Program Friend Shared Sub Main(args As String()) ' Create new barcode Dim barcode As New Barcode() ' Set symbology barcode.Symbology = SymbologyType.Code39 ' Set value barcode.Value = "Sample" ' Specify barcode size by bounds to fit into. ' You can use any measure units. barcode.FitInto(5, 3, UnitOfMeasure.Inch) ' Save barcode to image barcode.SaveImage("result.png") ' Show image in default image viewer Process.Start("result.png") End Sub End Class
Click here to get your Free Trial version of the SDK
also available as: