Collision/Sprite Library

Hi all

One day, i would like to see this code working like APP inventor.

Sub Collision

if sprite1.collided=sprite2 then
Label1.text="Collision occured"
end if

End sub

Later

Thanks to B4 coders...