Sub Cancel_MouseClicked (EventData As MouseEvent) ' delete event
Dim jo As JavaObject = EventData
Dim target As JavaObject = jo.RunMethod("getTarget", Null)
' Dim l As Label = target
' Log(l.tag)
' Dim text As String = target.RunMethod("getText", Null)
...
End Sub