Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.Color = Colors.Black
Dim lbl As Label
lbl.Initialize("")
lbl.Text = Text
lbl.TextSize = clv2.DefaultTextSize 'or whatever
p.AddView(lbl, 20dip, 10dip, 140dip,60dip)
Return p
End Sub