Sub Globals
Dim New_Layout as Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main_Layout")
New_Layout.Initialize("")
New_Layout.LoadLayout("New_Layout_file_from_Designer")
Activity.AddView(New_Layout, 0,0,100%x,100%y)
New_Layout.Visible = False
End Sub
Sub Load_new_Layout_Button_Click
New_Layout.Visible = true
End Sub
Sub Unload_Layout_Button_Click
New_Layout.RequestFocus
New_Layout.Visible = False
End sub