detección de colisión vb

if (image2.left lt; = imagen1.left image1.width) and (image2.leftgt; =image1.left-image2.width) and (image2.toplt; = image1.top image1.height) and (image2.topgt; = imagen1.top imagen1.height) y (image2.topgt; =image1.top-image2.height) entonces

image2.visible = false

image1.visible = false

image1.visible = false

p>

end if

puede detectar la posición de dos cuadros de imagen y desaparecer cuando se cumplen las condiciones.

Este código se puede colocar en un temporizador o activarse cuando el cuadro de imagen se mueve.