Dim bc As New iTextSharp.text.pdf.BarcodeEAN 
 
bc.CodeType = iTextSharp.text.pdf.BarcodeEAN.EAN13
bc.TextAlignment = Element.ALIGN_CENTER
bc.Code = txtcode.Text
'bc.StartStopText = True
'bc.Extended = True
'bc.GenerateChecksum = True
'bc.ChecksumText = True
'bc.Font = Nothing
 
Dim imageEAN As iTextSharp.text.Image = bc.CreateImageWithBarcode(cb, _
  iTextSharp.text.BaseColor.BLACK, iTextSharp.text.BaseColor.BLACK)
imageEAN.ScaleToFit(160, 20)
imageEAN.SetAbsolutePosition(190, 0)
cb.AddImage(imageEAN)