Public Sub Scan (DialogMessage As String)
NFC.Scan(DialogMessage)
Wait For NFC_TagConnected (Success As Boolean, Tag As Object)
If Success Then
Try
Dim InternalTag As NativeObject = Tag.As(NativeObject).GetField("_tag")
Log(InternalTag)
Dim uid As NativeObject = InternalTag.GetField("_uid")
Dim b() As Byte = uid.NSDataToArray(uid)
Dim bc As ByteConverter
Log("uid: " & bc.HexFromBytes(b))
Catch
Log("failed to read uid")
Log(LastException)
End Try