如何在VB6中拖放表单中的两个不同图片？

我正在研究如何在窗体中拖放图片。现在，我可以拖放一张图片。但是，我不知道当有两张图片时，我会在代码中添加什么

这是我的代码：

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    pic1.Move X, Y
End Sub

我第二张照片的名字是“pic2”。因为当我尝试这个代码时：

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    pic1.Move X, Y
    pic2.move X, Y
End Sub

---

当我拖放这两者中的任何一个时，它们显然会移动到同一个坐标。请帮忙。谢谢。

您可以使用Source参数作为导致DragDrop事件的控件。下面的示例将移动pic1、pic2或任何其他PictureBox控件

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)

    If TypeOf Source Is PictureBox Then
        Source.Move X, Y
    End If

End Sub

---

嗯，您正在移动两张图片，但不清楚您的问题出在哪里。你的问题是什么？您希望代码做什么？