vb,在picture控件中有一个shape控件,我想鼠标点击picture控件内一个位置,shape控件就移动那里？

如题所述

要代码，谢谢。

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
shape1.Move X, Y
End Sub

没有任何反应。

shape1控件名称对不对？