A.Private Sub Form_DlagDrop(Source As Control,X As Single,Y As Singl bananMove Picture1.Left+X,Picture1.Top+Y End Sub
B.Private Sub banana_DragDrop(Source As Control,X As Single,Y As Singl SourcMove Picture1.Lefi+X,Picture1.Top+Y End Sub
C.Private Sub Picture1_DmgDrop(Source As Contro1,X As Single,Y AS Singl SourcMove Picture1.Left+X,Picture1.Top+Y End Sub
D.Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Singl bananMove bananLet+X,banaTop+Y End Sub