#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Activity_Create(FirstTime As Boolean)
ime.Initialize("ime")
root = xui.CreatePanel("")
Dim Content As Rect = ime.GetContentRect
Activity.AddView(root, Content.Left, Content.Top, Content.Width, Content.Height)
ime.UpdatePercentageReference(root.Width, root.Height)
Dim pm As B4XPagesManager
pm.Initialize(Activity)
End Sub