Android Question Auto hide navigation bar at full screen (ZOrder?)

Sub Globals
Dim BarraDeEstadomView As Label
' ----------------
' ----------------
' ----------------

Sub Activity_Create(FirstTime As Boolean)
     BarraDeEstadomView.Initialize("")
     BarraDeEstadomView.Text =""
     QuitarBarraEstatus ' hide

' ----------------
' ----------------
' ----------------

Sub Activity_Pause (UserClosed As Boolean)
  If UserClosed then  PonerBarraEstatus ' Active
' ----------------
' ----------------
' ----------------



Sub QuitarBarraEstatus
  ' Hide
    Dim mlp As JavaObject
    Dim vtype As Int = -1, pixelFormat As Int = -3
   
    Try
      mlp.InitializeNewInstance("android.view.WindowManager$LayoutParams", Array(vtype, 100, 2010,296, pixelFormat))
    Catch
    End Try
   
    Try
      mlp.SetField("gravity", Bit.Or(Gravity.TOP, Gravity.CENTER))
    Catch
    End Try
   
    Try
      Dim windowManager As JavaObject = BarraEstatusGetContext.RunMethod("getSystemService", Array("window"))
    Catch
    End Try
   
    Try
      windowManager.RunMethod("addView", Array(BarraDeEstadomView, mlp))
    Catch
    End Try
   
End Sub



Sub PonerBarraEstatus
  ' Active
    If BarraDeEstadomView.IsInitialized = False Then
        BarraDeEstadomView.Initialize("")
        BarraDeEstadomView.Text =""
    End If
    Try
      Dim windowManager As JavaObject = BarraEstatusGetContext.RunMethod("getSystemService", Array("window"))
      windowManager.RunMethod("removeView", Array(BarraDeEstadomView))
  Catch
    End Try
               
       
       
End Sub

Sub BarraEstatusGetContext As JavaObject
    Return BarraEstatusGetBA.GetField("context")
End Sub

Sub BarraEstatusGetBA As JavaObject
    Dim jo As JavaObject
    Dim cls As String = Me
    cls = cls.SubString("class ".Length)
    jo.InitializeStatic(cls)
    Return jo.GetFieldJO("processBA")
End Sub

#Region  Activity Attributes
#FullScreen: True

         ' available flags:
         'SYSTEM_UI_FLAG_IMMERSIVE_STICKY = 4096 (0x01000)
         'SYSTEM_UI_FLAG_IMMERSIVE = 2048 (0x0800)
         'SYSTEM_UI_FLAG_LAYOUT_FULLSCREEN = 1024 (0x0400)
         'SYSTEM_UI_FLAG_LAYOUT_HIDE_NAVIGATION = 512 (0x0200)
         'SYSTEM_UI_FLAG_LAYOUT_STABLE = 256 (0x0100)
         'SYSTEM_UI_FLAG_FULLSCREEN = 4 (0x04)
         'SYSTEM_UI_FLAG_HIDE_NAVIGATION = 2 (0x02)
               

   Dim jo As JavaObject = Activity
   jo.RunMethod("setSystemUiVisibility", Array As Object(5894))