Dim newPic As New PictureBox
      newPic.Image = Image.FromFile(".....")
      newPic.SizeMode = PictureBoxSizeMode.StretchImage
      newPic.Size = New System.Drawing.Size(nSize.Width, nSize.Height)
      newPic.Location = nLoc
      AddHandler newPic.Click, AddressOf picBox_Click
      Me.Controls.Add(newPic)
 
      aCtl = Me.Controls.Count - 1   ' Index des Controls '