RectsOverlap

In a subclass of TRectangle. Then you'd use your subclass everywhere instead of the standard TRectangle type.

Type MyTRectangle Extends TRectangle
   ' Intersection Method Goes Here
End Type

(Edit): Never mind that. I thought that TRectangle was a built-in type. Defiance's first example is correct.