Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Tendrias que asignarle a las propiedades top y left de la imagen un numero aleatorio con un intervalo de tiempo para aparezca y desaparezca en diferentes lugares, que en realidad lo que hace es moverse. Ejemplo :
Sub Muevo_Imagen(IMG as picturebox) dim T as integer dim L as integer randomize T = Int((form1.scaleheight * Rnd)) 'comprueba que este bien escrito L = Int((form1.scalewidht * Rnd)) 'comprueba que esta bien escrito