Dim evento As JavaObject
Dim nodo As JavaObject
Sub acs_OnAccessibilityEvent (Event As Object, Node As Object)
nodo = Node
evento = Event
Dim EventType As Int = evento.RunMethod("getEventType", Null).As(Int)
Dim PackageName As String = evento.RunMethod("getPackageName", Null).As(String)
Dim nodes As JavaObject = nodo.RunMethod("get", Array As Object(0)) ' get all nodes
Dim nodesCount As Int = nodes.RunMethod("size", Null).As(Int) ' get the nodes count
For x = 0 To nodesCount - 1
Dim obj As JavaObject = nodes.RunMethodJO("get", Array As Object(x)) ' get the node
Dim ViewId As String = obj.RunMethod("getViewIdResourceName", Null).As(String) ' get the ViewId
Dim ClassName As String = obj.RunMethod("getClassName", Null).As(String)
Dim isClickable As Boolean = obj.RunMethod("isClickable", Null).As(Boolean)
Dim outBounds As JavaObject
outBounds.InitializeStatic("android.graphics.Rect")
obj.RunMethod("getBoundsInWindow", Array As Object(outBounds))
' and so on with other proprieties....
Next
End Sub