Private Sub Panel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel1.Click, Panel2.Click, Panel3.Click, Panel4.Click, Panel5.Click, Panel6.Click, Panel7.Click, Panel8.Click, Panel9.Click, Panel10.Click
        Dim p As Panel
        p = DirectCast(sender, Panel)
        Dim i As Integer
        For i = 1 To 10 Step 1
            If p.Name = "Panel" & i Then
                PictureBox1.BackColor = p.BackColor
            End If
        Next
    End Sub