jo = jo.InitializeStatic("android.bluetooth.BluetoothAdapter").RunMethod("getDefaultAdapter", Null)
Dim PairedDevices() As Object = jo.RunMethodJO("getBondedDevices", Null).RunMethod("toArray", Null)
For Each pd As JavaObject In PairedDevices
Log("*************")
Log(pd.RunMethod("getName", Null))
Log(pd.RunMethod("getAddress", Null))
Log(pd.RunMethodJO("getBluetoothClass", Null).RunMethod("getDeviceClass", Null))
Log(pd.RunMethodJO("getBluetoothClass", Null).RunMethod("getMajorDeviceClass", Null))
Next