'--- WARNING THIS TOTALLY DISABLES THE NAV BAR ---
'ONLY USE IF YOU NEVER WANT THE NAV BAR DISPLAYED!!!
Dim Command, Runner As String
Dim StdOut, StdErr As StringBuilder
Dim Result As String
Dim Ph As Phone
Runner = File.Combine(File.DirInternalCache, "runner")
Command = File.Combine(File.DirInternalCache, "command")
File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
File.WriteString(File.DirInternalCache, "command", "service call activity 42 _
s16 com.android.systemui" & CRLF & "exit")
Result = Ph.Shell("sh", Array As String(Runner), StdOut, StdErr)