PiCTURE BOX PROBLEM !!! (Please , only one answer)

Here is a simple example of one way of doing it; here I have just assigned a name to the picturebox and I am using the sender in the click handler to read the name and change the backcolor of the select picturebox:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

     Dim p(5) As PictureBox
     Dim i As Integer

     For i = 0 To 4
          p(i) = New PictureBox
          p(i).BackColor = Color.Aqua
          p(i).Name = "pBox" & i.ToString()
          p(i).Location = New Point(10, (i * 150) - 140 + (i - 1) * 10)
          p(i).Size = New Size(150, 150)
          p(i).BorderStyle = BorderStyle.FixedSingle
          Me.Controls.Add(p(i))
          Me.AutoScroll = True
          AddHandler p(i).Click, AddressOf Me.hesapla
     Next i
End Sub

Private Sub hesapla(ByVal sender As System.Object, ByVal e As System.EventArgs)
     MessageBox.Show(sender.Name.ToString())
     sender.BackColor = Color.Black
End Sub