Sub CreateItem(clr As Int, Title As String, id As ItemData) As B4XView
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, clv1.AsView.Width, id.ExpandedHeight)
p.LoadLayout("Item")
p.SetLayoutAnimated(0, 0, 0, p.Width,id.CollapsedHeight)
lblTitle.SetTextAlignment("CENTER", "RIGHT")
lblTitle.TextSize = 26
lblTitle.Text = Title
'............................