Private Sub GetResources As Object
Dim r As Reflector
r.Target= r.GetContext
Return r.RunMethod("getResources")
End Sub
Private Sub GetDrawable(id As Int) As Object
Dim r As Reflector
Return r.RunMethod2("getDrawable", id, "java.lang.int")
End Sub
Private Sub GetResources As Object
Dim r As Reflector
r.Target= r.GetContext
Return r.RunMethod("getResources")
End Sub
Private Sub GetDrawable(id As Int) As Object
Dim r As Reflector
r.Target = GetResources '<--- without it the reflector object will be null
Return r.RunMethod2("getDrawable", id, "java.lang.int")
End Sub