Usa la programación vb para aleatorizar imágenes
Esto es muy simple
Atenuar imagen(8) como imagen
Atenuar ID de imagen(8) como entero
Subcomando privado1_Click()
Atenuar i como entero
Atenuar temperatura(8) como entero
Atenuar número elegido como entero
Para i = 0 a 8
Temp (i) = i
Siguiente
Aleatorio (Temporizador)
Para i = 8 a 0 Paso - Paso - Paso - Paso1
Número Elegido = Int(i * Rnd)
ImageID(8 - i) = Temp(Número Elegido)
Temp(Número Elegido) = Temp(i)
Siguiente
Para i = 0 a 8
Imagen1(i).Imagen = pic(ImageID(i))
Si ImageID(i) = 8 Entonces XPosition = i
Siguiente
Iniciado = Verdadero
MoveTimes = 0
Fin Sub
Sub privado Form_Load ()
Atenuar i como entero
Para i = 0 a 8
Establecer pic(i) = Imagen1(i).Imagen
Siguiente
Fin Sub