Cita:
Iniciado por seba123neo 
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.
o si quieres que vaya canviando del 1 al X consecutivamente i al llegar al limite vualva al 1:
Código:
Public contador As Integer = 1
Private Sub Command1_Click()
Dim Limite1 As Integer
Dim Limite2 As Integer
Limite1 = 1
Limite2 = 10
Dim imagen As String
If contador < Limite2 Then
imagen = App.Path & "\" & contador & ".jpg"
contador = contador + 1
Else
imagen = App.Path & "\1.jpg"
contador = 1
End If
Picture1.Picture = LoadPicture(imagen)
End Sub
Espero que te funcione