#AdditionalJar: mylibrary
Sub Test()
Dim R2 as Reflector
Dim Jo As JavaObject
Jo.InitializeNewInstance("mylibrary.KeyModule",Null)
Dim CallBack As Object = Jo.CreateEvent("onStatusChange", "Callback", Null)
jo.RunMethod("init",Array(r2.GetActivity, e))
End Sub
Sub Callback_Event (MethodName As String, Args() As Object) As Object
Log("onStatusChange")
End If