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