'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("screen1")
End Sub
Private Sub Button_fav_Click
ListFavori = xui.CreatePanel("")
ListFavori.SetLayoutAnimated(0, 0, 0, 300dip, 300dip)
ListFavori.LoadLayout("listFav")
End Sub