Sub BroadcastReceiver_OnReceive (Action As String, Extras As Object)
Log(Action)
Log(Extras)
Dim ix As Intent = Extras
If ix.HasExtra("android.bluetooth.headset.extra.VENDOR_SPECIFIC_HEADSET_EVENT_ARGS") Then
Dim z As String = ix.GetExtra("android.bluetooth.headset.extra.VENDOR_SPECIFIC_HEADSET_EVENT_ARGS")
Log(z )
End If