Imports OnBarcode.Barcode


   Dim barcode As Linear = New Linear
   
   ' UPC-E Barcode Basic Settings
   barcode.Type = BarcodeType.UPCE
   
   '   UPC-E Valid data char set:
   '        0, 1, 2, 3, 4, 5, 6, 7, 8, 9 (Digits)
   
   '   UPC-E Valid data length: 6 digits only, excluding the first UPCE number system
   '   and the last checksum digit
   barcode.Data = "012345"
   
   ' 0 or 1
   barcode.UPCENumber = 3
   
   ' for UPC-E with supplement data (2 or 5 digits)
   'barcode.SupData = "12";
   ' supplement bar height vs bar height ratio
   'barcode.SupHeight = 0.8f;
   ' space between barcode and supplement barcode (in pixel)
   'barcode.SupSpace = 15;
   
   ' Barcode Size Related Settings
   barcode.UOM = UnitOfMeasure.PIXEL
   barcode.X = 1
   barcode.Y = 65
   barcode.LeftMargin = 0
   barcode.RightMargin = 0
   barcode.TopMargin = 0
   barcode.BottomMargin = 0
   barcode.Resolution = 96
   barcode.Rotate = Rotate.Rotate0
   
   ' Barcode Text Settings
   barcode.ShowText = True
   barcode.TextFont = New Drawing.Font("Arial", 9.0F, Drawing.FontStyle.Regular)
   barcode.TextMargin = 6
   
   ' Image format setting
   barcode.Format = System.Drawing.Imaging.ImageFormat.Gif()
   
   barcode.drawBarcode("c://upc-e.gif")