Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown
        If Not IsNothing(PictureBox2.Image) Then
            PictureBox1.DoDragDrop(PictureBox2.Image, DragDropEffects.Copy)
        End If
    End Sub

   Private Sub PictureBox1_DragEnter(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragEnter
        e.Effect = DragDropEffects.Copy
    End Sub
 
    Private Sub PictureBox1_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop
        Dim i As Image = e.Data.GetData(DataFormats.Bitmap, True)
        PictureBox1.Image = i
    End Sub