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