Передвигать блоки мышкой

 Function ss(f2 As PictureBox, f1 As PictureBox)
        ss = s(f1.Location.X, f1.Location.Y + f1.Height, f1.Location.X + f1.Width, f1.Location.Y, f2.Location.X, f2.Location.Y + f2.Height, f2.Location.X + f2.Width, f2.Location.Y)
        
    End Function
 
    Function s(x1, y1, x2, y2, x3, y3, x4, y4)
        x2 = x2 - x1
        x3 = x3 - x1
        x4 = x4 - x1
        x1 = 0
        y2 = y2 - y1
        y3 = y3 - y1
        y4 = y4 - y1
        y1 = 0
 
        If x3 < 0 Then x3 = 0
        If y3 < 0 Then y3 = 0
        If x3 > x2 Or y3 > y2 Then s = 0
 
        Dim xx As Integer
        Dim yy As Integer
 
        If x4 <= x2 Then xx = x4 - x3 Else xx = x2 - x3
        If y4 <= y2 Then y = y4 - y3 Else yy = y2 - y3
        s = xx * yy
    End Function

Function s(r1 As PictureBox, r2 As PictureBox)
        If r1.Location.X >= r2.Location.X + r2.Width Or r1.Location.X + r1.Width <= r2.Location.X Or r1.Location.Y >= r2.Location.Y + r2.Height Or r1.Location.Y + r1.Height <= r2.Location.Y Then s = False Else s = True
    End Function