Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Dim banner As Label
banner.Initialize("")
Dim bannerx As B4XView = banner
banner.Text = "Top Secret"
bannerx.Color = xui.color_Red
bannerx.TextSize = 20
bannerx.TextColor = xui.color_White
bannerx.SetTextAlignment("CENTER", "CENTER")
bannerx.Rotation = -45
Dim box As B4XView = xui.CreatePanel("")
box.SetColorAndBorder(xui.Color_Transparent, 1, xui.Color_Black, 0)
Root.AddView(box, 200, 200, 300, 300)
box.AddView(bannerx, -50, 35, 200, 20)
End Sub