Private Sub CreateMessage(Width As Int, Height As Int, MessageText As String) As Panel
Dim panel As B4XView = xui.CreatePanel("")
panel.SetLayoutAnimated(0, 0, 0, Width, Height)
panel.LoadLayout("messagecontent")
TextEngine.Initialize(panel)
bbcMessageContent.TextEngine = TextEngine
bbcMessageContent.Text = MessageText
Return panel
End Sub