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

Формулировка задачи:

Необходимо создать игру, где нужно передвигать блоки с помощью мышки. По скриншоту всё поймете, что я имею ввиду. Как это реализовать? Блоки это изображения. MousMove работает только внутри изображения. Ещё и как то границы движения нужно сделать. Подскажите пожалуйста

Решение задачи: «Передвигать блоки мышкой»

textual
                            Листинг программы 
                        

                            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
                        