'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