Private Sub B4XPage_Created (Root1 As B4XView)
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 300dip, 60dip)
p.LoadLayout("actionbar") 'Layout has label1 only
p.SetColorAndBorder(xui.Color_Cyan, 4dip, xui.Color_White, 3dip)
B4XPages.GetManager.ActionBar.RunMethod("setCustomView", Array(p))
B4XPages.GetManager.ActionBar.RunMethod("setDisplayOptions", Array(16, 16))
Dim cs As CSBuilder
cs.Initialize.Append(CreateClickableWord("Google")).PopAll
Label1.Text =cs
cs.EnableClickEvents(Label1)
B4XPages.SetTitle(Me, "")
Root = Root1
Root.LoadLayout("1")
'rest of your other code