'Add Manifest
'AddPermission("android.permission.BLUETOOTH")
'AddPermission("android.permission.BLUETOOTH_ADMIN")
'AddPermission(android.permission.ACCESS_FINE_LOCATION)
Dim rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Dim adapter As JavaObject
adapter = adapter.InitializeStatic("android.bluetooth.BluetoothAdapter").RunMethodJO("getDefaultAdapter", Null)
Log("Name device: " & adapter.RunMethod("getName", Null))
End If