Public Function T_QRall(ByRef Ci As CiServer, sFileName)
  Dim Bc As CiQR: Set Bc = Ci.CreateQR
  '  Open image from file
  Bc.Image.Open sFileName
  '  Configure barcode
  Bc.Algorithm = cibBestRecognition
  '  Read barcode
  Dim Barcode As CiBarcode
  Bc.Find 0
  For Each Barcode In Bc.Barcodes
  '  Process barcode
       T_DisplayBarcode Barcode
  Next
End Function