sure check this found on google
http://www.keepautomation.com/vbnet_barcode/code_39.html Dim code39 As KeepAutomation.Barcode.Bean.BarCode = New KeepAutomation.Barcode.Bean.BarCode
code39.Symbology = KeepAutomation.Barcode.Symbology.Code39
code39.CodeToEncode = "3939"
'Apply checksum for Code 39 barcode.
code39.ChecksumEnabled = True
'Display checksum in the Code 39 barcode text
code39.DisplayChecksum = True
'Unit of measure, Pixel, Cm and Inch supported.
code39.BarcodeUnit = KeepAutomation.Barcode.BarcodeUnit.Pixel
'Code 39 image resolution in DPI.
code39.DPI = 72
'Set generated Code 39 image size
'Code 39 bar module width (X dimention)
code39.X = 1
code39.Y = 60
'Code 39 wide bar width vs narrow bar width. Valid from 2.0f to 3.0f.
code39.WideNarrowRatio = 2.0F
'Space between character symbol, a multiple of X.
code39.I = 1.0F
'Image left margin size, a 10X automatically added according to specification.
code39.LeftMargin = 0
'Image right margin size, a 10X automatically added according to specification.
code39.RightMargin = 0
'Code 39 image top margin size'
code39.TopMargin = 0
'Code 39 image bottom margin size'
code39.BottomMargin = 0
'Orientation, 90, 180, 270 degrees supported' Code 39 image bottom margin size
code39.Orientation = KeepAutomation.Barcode.Orientation.Degree0
'Code 39 image formats in Png, Gif, Jpeg/Jpg, Tiff, Bmp, etc.
code39.ImageFormat = System.Drawing.Imaging.ImageFormat.Gif
'Set Code 39 human readable text style
code39.DisplayText = True
code39.TextFont = New Drawing.Font("Arial", 10.0F, Drawing.FontStyle.Regular)
'Space between barcode and text
code39.TextMargin = 6
'Print Code 39 Start & Stop character * in the barcode text
code39.DisplayStartStop = True
code39.generateBarcodeToImageFile("C://code39-vb-net.gif")
Benson721, if this helps please login to Mark As Answer. | Alert Moderator