Sub Scanner_Ready (Success As Boolean)
If Success = True Then
hd.ToastMessageShow("Ready to start", False)
Else
hd.ToastMessageShow("Error starting scanner", True)
End If
End Sub
Sub scanner_Detected (Codes As List)
Dim code As BarcodeCode = Codes.Get(0)
scannedList.Add(code.Value)
Log(scannedList.Size)
End Sub