Sub Activity_Click
Dim am As JavaObject = GetContext.RunMethod("getSystemService", Array("audio"))
am.RunMethod("playSoundEffect", Array(8))
End Sub
Sub GetContext As JavaObject
Return GetBA.GetField("context")
End Sub
Sub GetBA As JavaObject
Dim jo As JavaObject
Dim cls As String = Me
cls = cls.SubString("class ".Length)
jo.InitializeStatic(cls)
Return jo.GetFieldJO("processBA")
End Sub