如何控制一个picturebox在另一个picturebox上跟随者鼠标移动而移动，鼠标按下选中，然后随着鼠标移动而移动，松开鼠标，就停止移动！

是要换鼠标图案吧?然后再让点中的图跟着动?鼠标在图上图案会变~其实预设有可选​​~Picture1.MousePointer

或自订图形~
Picture1.MouseIcon =LoadPicture("Path")

先
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     'Get到鼠标原始位置
End Sub
再到~
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     '鼠标现在位置-鼠标原始位置=图案移动位置
End Sub

大概是这样做吧~

在 Form1 通用区定义变量：Dim Mx as long,My as long

1.需要移动的 picture2 控件要画在 picture1 控件中
picture2 的鼠标向下事件写入如下代码：
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Mx=x
My=y
End Sub
picture2 的鼠标移动事件写入如下代码：
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
if button=1 then
 if Mx-x>0 then picture2.left=picture2.left-Abs(Mx-x)'向左移
 if Mx-x<0 then picture2.left=picture2.left+Abs(Mx-x)'向右移
 if My-y>0 then picture2.top=picture2.top-Abs(My-y)'向上移
 if My-y<0 then picture2.top=picture2.top+Abs(My-y)'向上移
end if
End Sub

我没有测试，你明白我的意思就行。

也许你是在Frame里面拖动~
还要再加写一行~让PictureBox不会被鼠标拖到失踪~
Picture1.Container = Frame1

你好！
例如：picture1 box 和picture2 box  我的目的是鼠标左击picture box2 ，相当于mousedown 事件在picture2 box上，鼠标不松开，移动鼠标，希望在picture1 box上 随着鼠标的移动picture2 box 跟着鼠标移动，mousemove 事件在picture1 box上。

例如：picture1 box 和picture2 box  我的目的是鼠标左击picture box2 ，相当于mousedown 事件在picture2 box上，鼠标不松开，移动鼠标，希望在picture1 box上 随着鼠标的移动picture2 box 跟着鼠标移动，mousemove 事件在picture1 box上。