Escoger imagen al azar de 1 carpeta y mostrarla

[seba123neo]

Hola,aca te paso un codigo que hice que hace lo que queres.suponiendo que las imagenes se llamen 1.jpg , 2.jpg, 3.jpg etc..... hasta el 10.

Código:

Private Sub Command1_Click()
Dim Limite1 As Integer
Dim Limite2 As Integer
Limite1 = 1
Limite2 = 10
Dim imagen As String
imagen = App.Path & "\" & Int((Limite1 - Limite2 + 1) * Rnd + Limite1) & ".jpg"
Picture1.Picture = LoadPicture(imagen)
End Sub

lo podrias poner en un timer con cierto intervalo y hacer como una presentacion de fotos.

saludos.