Hola,suponete que en tu carpeta tenes fotos llamadas 1.jpg 2.jpg 3.jpg ..... asi hasta la foto 10,entonces con este codigo que te pongo al apretar el boton va cambiando la imagen aleatoriamente de las que tenes en la carpeta.
Código:
Private Sub Command1_Click()
Dim Limite1 As Integer
Dim Limite2 As Integer
Limite1 = 1
Limite2 = 10
Dim imagen As String
Dim i As Integer
imagen = App.Path & "\" & Int((Limite1 - Limite2 + 1) * Rnd + Limite1) & ".jpg"
Picture1.Picture = LoadPicture(imagen)
End Sub
podes cambiar el nombre picture1 por el nombre del form y lo haces en el form como si fuera en el picture.el valor de los limites dependen de la cantidad de fortos y los nombres.
saludos.