cargar imagen aleatoria en picturebox

[marinella]

conozco la ubicacion de la base de la carpeta donde estan las imagenes, mira esto es lo que tengo pero lo que me carga en cada una de las las picturebox es la misma imagen, y cada que le doy clic cambian todas a tiempo, y yo lo que quiero es que cambien cada una diferente de la otra:
Dim numeroImagenes As Integer
Dim aleatorio As Integer
Dim aleatorio1 As Integer
Dim aleatorio2 As Integer
'Obtenemos los ficheros de tipo ".jpg" de una carpeta. (puede haber más tipos de imagenes)

Dim ficheros As String() = System.IO.Directory.GetFiles("D:\imagen\", "*.png")
'Contamos el números de imagenes en la carpeta seleccionada.
numeroImagenes = ficheros.Length
'Generamos un número aleatorio entre 0 y el número de imágenes en la carpeta.
aleatorio = New Random().Next(0, 4)
aleatorio1 = New Random().Next(0, 4)
aleatorio2 = New Random().Next(0, 4)
'Obtenemos del array de "paths" de imagenes, la posición correspondiente al número aleatorio generado

Me.PictureBox1.ImageLocation = ficheros(aleatorio)
Me.PictureBox2.ImageLocation = ficheros(aleatorio1)
Me.PictureBox3.ImageLocation = ficheros(aleatorio2)