Private PictureBoxen As New List(Of PictureBox)
Sub NeuePictureBox(X As Single,Y As Single)
  Dim pc As New PictureBox
  pc.Left = 20
  pc.Top = 20
  pc.Width = 20
  pc.Height = 20
  pc.BackColor = Color.Lime
  PictureBoxen.Add(pc)
  AddHandler pc.Click, AddressOf PicClick
End Sub
Sub PicClick(ByVal sender As Object, ByVal e As MouseEventArgs)
  sender.BackColor = Color.Red
End Sub