Android Question Result of bluetooth REQUEST_DISCOVERABLE

Sub btnAllowConnection_Click
   Dim i As Intent
   i.Initialize("android.bluetooth.adapter.action.REQUEST_DISCOVERABLE", "")
   i.PutExtra("android.bluetooth.adapter.extra.DISCOVERABLE_DURATION", 300)
   StartActivityForResult(i)
   Wait For ion_Event (MethodName As String, Args() As Object)
   If Args(0) > 0 Then 'resultCode = RESULT_OK
       Log("Discovery allowed")
       Starter.Manager.ListenForConnections
   Else
       Log("Discovery denied")
   End If
End Sub

Sub StartActivityForResult(i As Intent)
   Dim jo As JavaObject = GetBA
   ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null)
   jo.RunMethod("startActivityForResult", Array As Object(ion, i))
End Sub

Sub GetBA As Object
   Dim jo As JavaObject
   Dim cls As String = Me
   cls = cls.SubString("class ".Length)
   jo.InitializeStatic(cls)
   Return jo.GetField("processBA")
End Sub