'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
pagTwo.Initialize
B4XPages.AddPageAndCreate("clsPagTwo", pagTwo)
End Sub
Sub passing_tolabel
Label2.Text = pagTwo.Val
End Sub
Sub Button1_Click
B4XPages.ShowPage("clsPagTwo")
End Sub