If StartingIntent.Action = "android.bluetooth.device.action.ACL_CONNECTED" Then
Dim io As JavaObject = StartingIntent
Dim bd As JavaObject = io.RunMethod("getParcelableExtra", Array As Object("android.bluetooth.device.extra.DEVICE"))
ConnectedDeviceName = (bd.RunMethod("getName", Null))
ConnectedDeviceAddress = (bd.RunMethod("getAddress", Null))
End If