Sub clv_panel_Click
'clv is your customlistview and then on each clickevent a random color will be added
Log(Sender)
Dim p As Panel
p = Sender
Dim r As Int = Rnd(0,255)
Dim g As Int = Rnd(0,255)
Dim b As Int = Rnd(0,255)
p.Color = Colors.RGB(r,g,b)
End Sub