Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Log(Root.Height) '1360
B4XPages.GetManager.ActionBar.RunMethod("hide",Null)
Root.SetLayoutAnimated(0, 0, 0, Root.Width, Root.Height)
Root.SetColorAndBorder(xui.Color_Blue, 0, 0, 0)
Log(Root.Height) '1360
End Sub