Vb.net 如何在面板中移动picturebox

我可以将picturebox从窗体移动到面板，如下所示（PictureBox1和Panel1位于同一窗体控件上）。但一旦进入panel1，PictureBox1就不会随着MouseMove事件移动。我的意图是，一旦picturebox进入面板区域，我只想在面板区域内自由移动它（MouseMove）。有人能帮我做到这一点吗

代码如下：

Dim定位为点
私有子PictureBox1\u MouseDown（ByVal sender作为对象，ByVal e作为MouseEventArgs）处理PictureBox1.MouseDown
定位=新点（-e.X，-e.Y）
端接头
私有子PictureBox1\u MouseMove（ByVal sender作为对象，ByVal e作为MouseEventArgs）处理PictureBox1.MouseMove
如果e.Button=Windows.Forms.MouseButtons.Left，则
Dim MoveTo As Point=Me.POINTTO客户端（鼠标位置）
MoveTo.locate（locate.X，locate.Y）
如果PictureBox1.Location.XEnd Sub

picturebox具有以下属性：顶部、左侧、高度和宽度。顶部和左侧是父控件中的位置。当您从显示器顶部移动到显示器底部时，顶部变为正值。谢谢；我正试着这么做。鼠标事件似乎起到了作用