For i = 0 To clv1.Size -1
Dim item As CLVItem = clv1.GetRawListItem(i)
item.Panel.GetView(0).GetView(0).As(Label).Padding = Array As Int (10dip, 10dip, 10dip, 0dip)
item.Panel.GetView(0).GetView(0).As(Label).Height = item.Panel.GetView(0).GetView(0).As(Label).Height + 20dip
clv1.ResizeItem(i, item.Panel.Height + 20dip)
clv1.GetRawListItem(i).Panel.SetColorAndBorder(xui.Color_White, 2dip, xui.Color_DarkGray, 6dip)
Next
or
B4X:
For i = 0 To clv1.Size -1
clv1.GetRawListItem(i).Panel.GetView(0).GetView(0).As(Label).Padding = Array As Int (10dip, 10dip, 10dip, 0dip)
clv1.GetRawListItem(i).Panel.GetView(0).GetView(0).Height = clv1.GetRawListItem(i).Panel.GetView(0).GetView(0).Height + 20dip
clv1.ResizeItem(i, clv1.GetRawListItem(i).Size + 20dip)
clv1.GetRawListItem(i).Panel.SetColorAndBorder(xui.Color_White, 2dip, xui.Color_DarkGray, 6dip)
Next