Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
Dim p As Panel
Dim cs As CSBuilder
p.Initialize("")
p.SetLayout(0, 0, Width, Height)
p.LoadLayout("chatlay")
Labelchat.Text = cs.Initialize.Color(0xFF0B8200).Append(Text).PopAll
Return p
End Sub