Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 200dip, 45dip)
Dim tf As EditText
tf.Initialize("")
p.AddView(tf, 5dip, 0, p.Width - 10dip, p.Height)
B4XPages.GetManager.ActionBar.RunMethod("setCustomView", Array(p))
B4XPages.GetManager.ActionBar.RunMethod("setDisplayOptions", Array(16, 16))
End Sub