'Mahares' code:
For i=0 To MyList.Size -1
clv1.AddTextItem(MyList.Get(i), MyList.Get(i))
Dim p As B4XView = clv1.GetPanel(i)
p.GetView(0).TextColor=xui.Color_Blue
Next
For i=0 To MyList.Size -1
clv1.AddTextItemClr(MyList.Get(i), MyList.Get(i), Xui.ColorBlue)
Next
'(or using a list of colors or alternating colors).