clv.Add(CreateListItemChart("Visits",clv.AsView.Width,110dip),"visits")
Sub CreateListItemChart(text As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.SetLayout(0, 0, Width, Height)
p.LoadLayout("itemChart")
Return p
End Sub