If ImagesOverlap(maus,mx,my,enemy,jx,jy) And MouseHit(1) Then
score = score + 1
"Bild löschen"

Dim objekte(100)
;Erstellt ein Feld mit der Größe 100

for a = 1 to 100
objekte(a) = 1
next
;Setzt alles auf 1. (1 = existiert)

;Wenn nun ein Objekt gelöscht wird, dann setzt du diesen Feldeintrag einfach auf 0. z.B:
objekte(63) = 0
;Diese Objekt wird dann einfach nicht mehr gezeichnet.

Type obj
   Field x
   Field y
End Type

o.obj=New obj
o\x=100
o\y=100

bild=Loadimage("bla.png")

;Anmerkung: Ich speichere die Grafik mal nicht in den type, man kann 2D-Bilder auch mehrmals im gleichen Buffer zeichnen. Falls du verschiedene Objekte hast dann mach dir einfach ein Grafik-ID Field, und dann kannst du beim zeichnen abfragen, welche Grafik es sein soll etc...

While not Keyhit(1)
   mx=MouseX()
   my=MouseY()
   mh=MouseHit(1)

   For o.obj=Each obj
      Drawimage bild, o\x, o\y
      If Rectsoverlap(o\x,o\y,Imagewidth(bild), ImageHeight(bild),mx,my,10,10)
         Delete o
      EndIf
   Next
Wend
End