'Here Read Version Android
Dim p As Phone
Dim version_droid As Int = p.SdkVersion
If version_droid > 23 Then
'in this Case we are only accessing Ndef tags. Android 7
If techs.IndexOf("android.nfc.tech.NfcA") > -1 Then
TagTech.Initialize("TagTech", "android.nfc.tech.NfcA" , si)
TagTech.Connect
Else
ToastMessageShow("Tag does not support NfcA.", True)
End If
Else
'in this Case we are only accessing Ndef tags. Android 6 or less
If techs.IndexOf("android.nfc.tech.Ndef") > -1 Then
TagTech.Initialize("TagTech", "android.nfc.tech.Ndef" , si)
TagTech.Connect
Else
ToastMessageShow("Tag does not support Ndef.", True)
End If
End If