que raro che,pero ya se lo que es lo que pasa es que el resultado del numero que genera el random esta fuera del intervalo de los limites y te da una foto que no la encuentra y a veces da negativo por ejemplo -2.jpg ,trata de acomodar la formula para que te den los numeros justos del 1 al 52 y no se pase del 52 ni sea mas chico que el 1.
y sino probate esta otra funcion basica:
Código:
Private Sub Command1_Click()
imagen = Int(Rnd * 10) + 1
Picture1.Picture = LoadPicture(App.Path & "\" & imagen & ".jpg")
End Sub
el valor que le des a la multiplicacion del random es el maximo valor de la foto,en este caso es un 10 ,en tu caso ponele un 52.pero como veo que es un juego de cartas o algo parecido seria bueno que le veas las funciones para generar numeros aleatorios no repetidos.
saludos.