etc
Неправда D:<

Tanya
Премного благодарю
Работает.

 

Me.Top
Me.Left

Не знаю как на MS Visual Basic'e, нo на Visual Studio, по-моему будет удобнее и практичнее использовать

Me.Location = New Point(Me.Location.X + (e.X - BarX), Me.Location.Y + (e.Y - BarY))