Sub CreatelistItem(Text As CSBuilder , Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.Color = Colors.RGB(48,48,48)
Dim lbl As Label
lbl.Initialize("")
lbl.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.LEFT)
lbl.Text = Text
lbl.TextSize = 18
lbl.Color = Colors.Black
p.AddView(lbl, 2dip, 2dip, Width, Height - 4dip) 'view #2
Return p
End Sub