Sub Activity_Create(FirstTime As Boolean)
Log(GetResourceString("app_name"))
End Sub
Sub GetResourceString(Key As String) As String
Dim r As Reflector
Dim package As String
Dim id As Int
package = r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
id = r.GetStaticField(package & ".R$string", Key)
r.Target = r.GetContext
r.Target = r.RunMethod("getResources")
Return r.RunMethod2("getText", id, "java.lang.int")
End Sub