VS 2010 Random Image in multiple PictureBox with unique image per picturebox.

hi guys! i'm new in VB i want to call random images from imagelist in multiple PictureBox but my problem is same image has been called..



this is my code:

Private Sub btnMore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMore.Click

intPic = rand.Next(0, ilsTheImages.Images.Count)
PictureBox1.Image = ilsTheImages.Images(intPic)

intPic = rand.Next(0, ilsTheImages.Images.Count)
PictureBox2.Image = ilsTheImages.Images(intPic)

intPic = rand.Next(0, ilsTheImages.Images.Count)
PictureBox3.Image = ilsTheImages.Images(intPic)

intPic = rand.Next(0, ilsTheImages.Images.Count)
PictureBox4.Image = ilsTheImages.Images(intPic)

intPic = rand.Next(0, ilsTheImages.Images.Count)
PictureBox5.Image = ilsTheImages.Images(intPic)

intPic = rand.Next(0, ilsTheImages.Images.Count)
PictureBox6.Image = ilsTheImages.Images(intPic)

intPic = rand.Next(0, ilsTheImages.Images.Count)
PictureBox7.Image = ilsTheImages.Images(intPic)

intPic = rand.Next(0, ilsTheImages.Images.Count)
PictureBox8.Image = ilsTheImages.Images(intPic)

intPic = rand.Next(0, ilsTheImages.Images.Count)
PictureBox9.Image = ilsTheImages.Images(intPic)

intPic = rand.Next(0, ilsTheImages.Images.Count)
PictureBox10.Image = ilsTheImages.Images(intPic)

intPic = rand.Next(0, ilsTheImages.Images.Count)
PictureBox11.Image = ilsTheImages.Images(intPic)

intPic = rand.Next(0, ilsTheImages.Images.Count)
PictureBox12.Image = ilsTheImages.Images(intPic)


End Sub


anybody can help me in the condition?

Attached Images