Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Log("layout prepared...")
'As label in root
' Root.LoadLayout("justLabel")
'As label in panel in root
Dim pnl As B4XView = xui.CreatePanel("")
pnl.LoadLayout("justLabel")
Root.AddView(pnl, 0, 0, Root.Width, Root.Height)
Sleep(0)
Label1.Top = 200
End Sub
Private Sub B4XPage_Appear
Label1.SetLayoutAnimated(0,100,150,Label1.PrefWidth,Label1.PrefHeight)
Log("moved to: " & Label1.Left & " " & Label1.top)
End Sub