Sub Shutdown
    Dim ph As Phone
    Dim Command, Runner As String
    Dim StdOut, StdErr As StringBuilder
    StdOut.Initialize
    StdErr.Initialize
    Runner = File.Combine(File.DirInternalCache, "runner")
    Command = File.Combine(File.DirInternalCache, "command")
    File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
     File.WriteString(File.DirInternalCache, "command", "su -c reboot -p")  
    ph.Shell("sh", Array As String(Runner), StdOut, StdErr)   
End Sub