B4X:
Activity.Finish
Dim r, r2 As Reflector
r.Target = r.GetActivity
r.Target = r.RunMethod("getApplicationContext")
r2.Target = r.RunMethod("getPackageManager")
Dim i As Intent = r2.RunMethod2("getLaunchIntentForPackage", r.RunMethod("getPackageName"), "java.lang.String" )
r.Target = i
r.RunMethod2("addFlags", 67108864, "java.lang.int")
StartActivity(i)