vb dragdrop事件调用后，编译运行后程序能拖动但拖动后picturebox控件并没移动过去，请帮我看看

[fatedreamer]

Private Sub Form_Load()
Picture1.DragIcon = LoadPicture("E:\vbp\icon\abc.ico")
End Sub

Private Sub From_DragDrop(Source As Control, X As Single, Y As Single)
rem 就是这里程序也没报错，但拖动放下后，控件并没跟着拖动的鼠标移动过来，请看看是什么问题
Source.Move (X - Source.Width / 2), (Y - Source.Height / 2)
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Drag 1
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Drag 2
End Sub

[bobogg]

删除 Private Sub From_DragDrop(Source As Control, X As Single, Y As Single) 使用事件选单重新叫出 Private Sub From_DragDrop(Source As Control, X As Single, Y As Single)