non va ,anche se sembra volerlo fare
cioe picturebox1 e abilitato a drag lo vedo quando clikko,mi fermo nella due e non succede niente

codice:
Public Class Form1    
 Dim imagine As Image  
   
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load     
 
   imagine =picturebox1.Image   

   End Sub       

    Public Sub draga()  
       uno.DoDragDrop(imagine, DragDropEffects.Copy)    
 End Sub  
   
 Private Sub uno_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles uno.MouseDown 
       
 draga()

      End Sub 

    Private Sub due_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles due.DragDrop

 picturebox2.Image = e.Data.GetData(DataFormats.Bitmap)    

   End Sub