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