Public Function T_Pdf417one(ByRef Ci As CiServer, sFileName)
  Dim Bc As CiPdf417: Set Bc = Ci.CreatePdf417
  '  Open image from file
  Bc.Image.Open sFileName
  '  Configure barcode
  Bc.Algorithm = cibBestSpeed
  Bc.Directions = cibHorz
  '  Read barcode
  Dim Barcode As CiBarcode
  Set Barcode = Bc.FirstBarcode
  '  Process barcode
  If (Not Barcode Is Nothing) Then 
      If (Barcode.IsChecksumVerified) Then
          T_DisplayBarcode Barcode
      End If
  End If
End Function

Public Function T_Pdf417all(ByRef Ci As CiServer, sFileName)
  Dim Bc As CiPdf417: Set Bc = Ci.CreatePdf417
  '  Open image from file
  Bc.Image.Open sFileName
  '  Configure barcode
  Bc.Algorithm = cibBestRecognition
  Bc.Directions = cibHorz Or cibVert Or cibDiag
  '  Read barcode
  Dim Barcode As CiBarcode
  Bc.Find 0
  For Each Barcode In Bc.Barcodes
  '  Process barcode
      If (Barcode.IsChecksumVerified) Then
          T_DisplayBarcode Barcode
      End If
  Next
End Function