Sub Service_Start(startingIntent As Intent)
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"))
Log(bd.RunMethod("getName", Null))
Log(bd.RunMethod("getAddress", Null))
End If
End Sub