Sub scanner_Detected (Codes As List)
Dim sb As StringBuilder
sb.Initialize
sb.Append("Detected code:").Append(CRLF)
For Each code As BarcodeCode In Codes
sb.Append(code.Value).Append(CRLF)
Dim no As NativeObject = code
sb.Append(no.GetField("type").AsString) '<-----
Next
Label1.Text = sb.ToString
End Sub