API pour intersection 2 Forms

Réponse acceptée !
Private Function IntersecForms(IUserForm As Long, IFormRef As Long) As Boolean
    Dim Coord As RECT
    Dim Coord1 As RECT
    Dim Coord2 As RECT
    Dim res As Long
   
    GetWindowRect FormInfo(IUserForm).hWnd, Coord1
    GetWindowRect FormInfo(IFormRef).hWnd, Coord2
    IntersectRect Coord, Coord1, Coord2
    res = IsRectEmpty(Coord)
   
    If res = 1 Then IntersecForms = True Else IntersecForms = False
    Debug.Print IntersecForms

End Function


Merci,