Как перетаскивать форму за ОПРЕДЕЛЁННЫЙ элемент управления

Public Class Form1
Private ptClient As Point
 
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEven tArgs) Handles Me.MouseDown
Dim cx, cy As Integer
'Вычисляем размер рамки окна,с учетом высоты заголовка
'если FormBorderStyle <> Windows.Forms.FormBorderStyle. None
'Можно воспользоваться так же SystemInformation.FrameBorderS ize
cx = (Me.Width - ClientRectangle.Width) \ 2
cy = (Me.Height - ClientRectangle.Height - cx)
ptClient = New Point(e.X + cx, e.Y + cy)
End Sub
 
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEven tArgs) Handles Me.MouseMove
If e.Button = MouseButtons.Left Then
Dim ptTemp As Point = Me.PointToScreen(New Point(e.X, e.Y))
Dim ptLocation As Point
'Находим смещение до верхней левой точки окна
ptLocation.X = ptTemp.X - ptClient.X
ptLocation.Y = ptTemp.Y - ptClient.Y
Me.Location = ptLocation
End If
End Sub
End Class

    Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
        Me.Capture = False ' Блокируем захват мыши 
        WndProc(Message.Create(Me.Handle, &HA1, 2, IntPtr.Zero))
    End Sub

    Dim drag As Boolean
    Dim mousex As Integer
    Dim mousey As Integer
    Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
         If e.Button = MouseButtons.Left Then
            drag = True
            mousex = Cursor.Position.X - Me.Left
            mousey = Cursor.Position.Y - Me.Top
        End If
    End Sub
    Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        If drag Then
            Me.Top = Cursor.Position.Y - mousey
            Me.Left = Cursor.Position.X - mousex
        End If
    End Sub
    Private Sub Panel1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
        drag = False
    End Sub

 Dim Pos As Point
    Private Sub Panel1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Location += Control.MousePosition - Pos
        End If
        Pos = Control.MousePosition
    End Sub