Android Question Resize Root B4XPages (Height Same Activity)

Sub Process_Globals
    Public ActionBarHomeClicked As Boolean
    Public CorrectHeight As Int
    Public HeightChangedFired As Boolean
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Dim p As Phone
    If p.SdkVersion >= 4.4 Then
        Dim jo As JavaObject
        Dim window As JavaObject = jo.InitializeContext.RunMethod("getWindow", Null)
        window.RunMethod("addFlags", Array(Bit.Or(0x00000200, 0x08000000)))
        Activity.Height = Activity.Height + GetStatusBarHeight
        Activity.Color = Colors.Green 'for show
    End If
    
    Dim pm As B4XPagesManager
    pm.Initialize(Activity)
    
    Wait For ime_HeightChanged (NewHeight As Int, OldHeight As Int)
    CorrectHeight = NewHeight
    HeightChangedFired = True
End Sub

Public Sub GetStatusBarHeight As Int
    Dim jo As JavaObject
    jo.InitializeContext
    Dim resources As JavaObject = jo.RunMethod("getResources", Null)
    Dim resId As Int = resources.RunMethod("getIdentifier", Array("status_bar_height", "dimen", "android"))
    If resId > 0 Then
        Return resources.RunMethod("getDimensionPixelSize", Array(resId))
    Else
        Return 0
    End If
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.Color = Colors.Red
    
    Dim start As Long = DateTime.Now
    Do While Main.HeightChangedFired = False And DateTime.Now < start + 500
        Sleep(50)
    Loop
    Root.Height = Main.CorrectHeight
End Sub