Private Sub B4XPage_Created (Root1 As B4XView)
B4XPages.GetManager.TransitionAnimationDuration = 0
Root = Root1
Root.LoadLayout("splash")
'...........
End Sub
Private Sub tmrSplashAnim_Tick
tmrSplashAnim.Enabled = False
pnSplashAnim.Visible = False
B4XPages.ShowPage("AppHome")
End Sub