PictureBox1の画像を PictureBox2にドラッグアンドドロップして画像を移動
させたいのですが、できません。



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    PictureBox1.AllowDrop = True
    PictureBox2.AllowDrop = True


End Sub
 
Private Sub PictureBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles pictureBox1.DragEnter,PictureBox2.DragEnter



    If e.Data.GetDataPresent(DataFormats.FileDrop) Then
        e.Effect = DragDropEffects.Copy
    End If

End Sub
 
Private Sub PictureBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragDrop,PictureBox1.DragDrop

    Dim FileName As String

    FileName = e.Data.GetData(DataFormats.FileDrop)(0)

    PictureBox1.Image = Image.FromFile(FileName)

End Sub