FunctionRect

For i = 1 To n
If Abs(x(0)-x(i)) < (dx(0)+dx(i))/2 And Abs(y(0)-y(i)) < (dy(0)+dy(i))/2=
Then
MsgBox ("Il rettangolo di riferimento =E8 sovrapposto al rettangolo" + Str(i))
End If
Next i

'ovvero:

'se la distanza assoluta tra i centri dei due rettangoli

'sull'asse x e' minore della somma delle semilarghezze dei

'rettangoli e quella sull'asse y e' minore delle semialtezze

'allora i rettangoli sono sovrapposti.