Imports OnBarcode.Barcode


   Dim barcode As Linear = New Linear
   
   ' GS1-128 / EAN-128 Barcode Basic Settings
   barcode.Type = BarcodeType.EAN128
   
   '   GS1-128 / EAN-128 Valid data char set:
   '        all 128 ASCII characters (Char from 0 to 127)
   
   '   to encode Application Identifier (AI), add "()" around the AI code, followed by the AI data
   barcode.Data = "(00)350123451234567894(21)01234567"
   
   '  Set the ProcessTilde property to true, if you want use the tilde character "~" 
   '  to specify special characters in the input data. Default is false.
   '
   '  1) 1-byte character: ~0dd/~1dd/~2dd (character value from 000 ~ 255);
   '       ASCII character '~' is presented by ~126;Strings from "~256" to "~299" are unused
   '       modified to FS, GS, RS and US respectively.
   '  2) 2-byte character (Unicode): ~6ddddd (character value from 00000 ~ 65535)
   '         Strings from "~665536" to "~699999" are unused
   '  3) for GS1 AI Code: 
   '         ~ai2: AI with 2 digits
   '         ~ai3: AI with 3 digits
   '         ~ai4: AI with 4 digits
   '         ~ai5: AI with 5 digits
   '         ~ai6: AI with 6 digits
   '         ~ai7: AI with 7 digits
   barcode.ProcessTilde = True
   
   ' Barcode Size Related Settings
   barcode.UOM = UnitOfMeasure.PIXEL
   barcode.X = 1
   barcode.Y = 80
   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://ean-128.gif")