Public Sub SetRelTopBottom(AnimDuration As Int, ViewToResize As B4XView, ViewTop As B4XView, ViewBottom As B4XView)
ViewToResize.SetLayoutAnimated(AnimDuration, ViewToResize.Left, ViewTop.Top + ViewTop.Height, ViewToResize.Width, ViewBottom.Top -(ViewTop.Top + ViewTop.Height))
End Sub