单击面板时移动窗体vb.net

Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
    If e.Button = MouseButtons.Left Then
        ' 记录鼠标的初始位置
        mouseOffset = New Point(-e.X, -e.Y)
        ' 记录窗体的初始位置
        isMouseDown = True
    End If
End Sub

Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove
    If isMouseDown Then
        ' 计算窗体的新位置
        Dim mousePos = Control.MousePosition
        mousePos.Offset(mouseOffset.X, mouseOffset.Y)
        ' 移动窗体
        Me.Location = mousePos
    End If
End Sub

Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp
    If e.Button = MouseButtons.Left Then
        ' 停止移动窗体
        isMouseDown = False
    End If
End Sub