You're not doing your collision tests against a type instance...
You should be looping through each block type instance checking for overlap and, it it does, reverse the ball direction and delete the block type instance
E.G.
In addition, I'm not sure what these lines are for either...
P.S. Use the <edit> key rather than multiple posts.
If ImagesOverlap(BALL,BALLOCK\x,BALLOCK\Y,Block,Block_X+I*55,J*60)
You should be looping through each block type instance checking for overlap and, it it does, reverse the ball direction and delete the block type instance
E.G.
For all.block = Each block If ImagesOverlap(BALL,BALLOCK\x,BALLOCK\Y,Block,all\X,all\y) ballock\dx=-ballock\dx ballock\dy=-ballock\dy Delete all ;<<< PROBLEM EndIf Next
In addition, I'm not sure what these lines are for either...
;If KeyDown(203) Then BALLOCK\DY=-BALLOCK\DY: BALLOCK\x=BALLOCK\x-3 ;If KeyDown(205) Then BALLOCK\DY=-BALLOCK\DY:: BALLOCK\x=BALLOCK\x+3
P.S. Use the <edit> key rather than multiple posts.