Private Sub clv1_ItemClick (Index As Int, Value As Object)
For i = 0 To clv1.Size - 1
clv1.GetPanel(i).Color = xui.Color_White
clv1.GetPanel(i).GetView(0).TextColor = Colors.Black
Next
clv1.GetPanel(Index).Color = Colors.blue
clv1.GetPanel(Index).GetView(0).TextColor = Colors.White
Log(Value)
End Sub