'code by JakeBullet70
Sub RestartApp
Dim R, R2 As Reflector
R.Target = R.GetActivity
R.Target = R.RunMethod("getApplicationContext")
R2.Target = R.RunMethod("getPackageManager")
Dim I As Intent
I = R2.RunMethod2("getLaunchIntentForPackage", R.RunMethod("getPackageName"), "java.lang.String" )
R.Target = I
R.RunMethod2("addFlags", 67108864, "java.lang.int")
StartActivity(I)
End Sub