Sub DoTheyOverlap(v1 As View, v2 As View) As Boolean
'c = center
Dim cx1 As Float = v1.Left + v1.Width / 2
Dim cy1 As Float = v1.Top + v1.Height / 2
Dim cx2 As Float = v2.Left + v2.Width / 2
Dim cy2 As Float = v2.Top + v2.Height / 2
Return Abs(cx2 - cx1) < v1.Width / 2 + v2.Width / 2 And Abs(cy2 - cy1) < v1.Height / 2 + v2.Height / 2
End Sub