Sub Globals
Dim Label2 As Label
Dim Label1 As Label
Dim bta As JavaObject
bta = bta.InitializeStatic("android.bluetooth.BluetoothAdapter").RunMethod("getDefaultAdapter", Null)
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Principale")
Label2.Text = bta.RunMethod("getAddress", Null)
End Sub