Public Function T_BarcodeBasicOne(ByRef Ci As CiServer, sFileName)
  '  Find one Code 39 or Code 128 barcode in Upper left corner
  Dim Bc As CiBarcodeBasic: Set Bc = Ci.CreateBarcodeBasic
  '  Open image from file
  Bc.Image.Open sFileName
  '  Set-up zone
  Dim Zone As CiImage
  Set Zone = Bc.Image.CreateZone(500, 100, 1500, 800)
  Bc.Image = Zone
  '  Configure barcode
  Bc.Type = cibfCode128 Or cibfCode39
  '  Read barcode
  Dim Barcode As CiBarcode
  Set Barcode = Bc.FirstBarcode
  '  Process parcode
  If (Not Barcode Is Nothing) Then T_DisplayBarcode Barcode
End Function

Public Function T_BarcodeBasicAll(ByRef Ci As CiServer, sFileName)
  Dim Bc As CiBarcodeBasic: Set Bc = Ci.CreateBarcodeBasic
  '  Open image from file
  Bc.Image.Open sFileName
  '  Configure barcode
  Bc.AutoDetect1D = ciTrue
  '  Read barcodes
  Dim Barcode As CiBarcode
  Bc.Find 0
  For Each Barcode In Bc.Barcodes
  '  Process barcode
    T_DisplayBarcode Barcode
  Next
End Function