Android Question Can you detect and change the bluetooth device name with B4A code?

Sub GetBluetoothName As String
   Dim jo As JavaObject
   Return jo.InitializeStatic("android.bluetooth.BluetoothAdapter").RunMethodJO("getDefaultAdapter", Null) _
     .RunMethod("getName", Null)
End Sub

Sub SetBluetoothName (Name As String)
   Dim jo As JavaObject
   Return jo.InitializeStatic("android.bluetooth.BluetoothAdapter").RunMethodJO("getDefaultAdapter", Null) _
     .RunMethod("setName", Array(Name))
End Sub