Need help with Object Collision

[NOMADMAN]

Okay, IntersectRect isn't working... I fear I'm not smart enough to use it!!!

Type RECT
    LEFT As Long
    RIGHT As Long
    BOTTOM As Long
    TOP As Long
End Type
 
Declare Function IntersectRect Lib "user32" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long
 
    Dim temparray As RECT
    Dim rect1 As RECT
    Dim rect2 As RECT
    
    rect1.BOTTOM = 4
    rect1.TOP = 1
    rect1.LEFT = 1
    rect1.RIGHT = 4
    
    rect2.BOTTOM = 6
    rect2.TOP = 2
    rect2.LEFT = 2
    rect2.RIGHT = 6
    
    If IntersectRect(temparray, rect1, rect2) <> 0 Then
        Call MsgBox("HIT HIT HIT")
        Call MsgBox(temparray.TOP & vbTab & temparray.BOTTOM & vbCrLf & temparray.LEFT & vbTab & temparray.RIGHT)
    End If

This is just an example but I still can't get it to work... Whats wrong with it? Could somebody fix it! THANKS!

NOMAD