Dim col as Color = GetColor(PictureBox1, e, p)
If temp <= radius ^ 2 Then
                For Each cColor As Color In collist
                    i += 1
                    If cColor.ToArgb = col.ToArgb Then
                        LB_SetIndex(ImageImageCheckedListbox1, i)
                        g.DrawPie(New Pen(Color.Black, Borderwith), ycor(0), _
                          ycor(1), ycor(2), ycor(2), xcor(i), wcor(i))
                        Exit For
                    End If
                Next
            End If

Gruss Caddy