Dim formats As List = Array(Scanner.FORMAT_ALL_FORMATS) 'For better performance pass the specific formats needed.
Wait For (Scanner.Scan(formats)) Complete (Result As ScannerResult)
If Result.Success Then
MsgboxAsync(Result.format & ": " & Result.Value, "Your scan:")
wait for msgbox_result(res As Int)
End If