Sub CustomListView1_ItemClick (Index As Int, Value As Object)
Dim p As B4XView = CustomListView1.GetPanel(Index)
Dim selColor As Int = xui.Color_ARGB(255,144,238,144)
p.Color = selColor
Dim x As String ="Myxclv#:" & Index
p.GetView(0).text =x '1st label in item panel at given index i
p.RemoveViewFromParent
CustomListView1.ReplaceAt(Index,p,50dip,x)
End Sub