Private Sub Form_DragDrop(Source As Control,X As Single,Y As Single) banana.Move Picture1.Left+X,Picture1.Top+Y End Sub Ptivate Sub banana_DragDrop(Source As Control,X As Single,Y As Single) Source.Move Picture1.Left+X, Picture 1.Top+Y End Sub Private Sub Picture1_DragDrop(Source As Contro1,X As Single,Y As Single) Source.Move Picture1.Left+X, Picture1.Top+Y End Sub Private Sub Picturel_DragDrop(Source As Contro1,X As Single,Y As Single) banana.Move banana.Left+X, banana.Top+Y End Sub