https://barnamenevis.org/showpo...5&postcount=79

برای این عمل به یک رویداد (MouseMove) برای pictureBox منبع نیاز دارید و دو رویداد (DragDrop) و ( DragEnter) از pictureBox مقصد. که نحوه کد کردن آن ها به شکل زیر است

Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

        If e.Button = MouseButtons.Left And Not PictureBox1.Image Is Nothing Then

            PictureBox1.DoDragDrop(PictureBox1.Image, DragDropEffects.All)

        End If

    End Sub



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

        If e.Data.GetDataPresent(DataFormats.Bitmap) Then

            e.Effect = DragDropEffects.Copy

        Else

            e.Effect = DragDropEffects.None

        End If

    End Sub



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

        If e.Data.GetDataPresent(DataFormats.Bitmap) Then



            PictureBox1.Image = CType(e.Data.GetData(DataFormats.Bitmap), Image)

        End If



    End Sub


نکته : خاصیت AllowDrop مربوط به pictureBox مقصد را بایستی true کنید. دقت داشته باشید که این خاصیت، در پنجره خواص مربوط به pictureBox وجود نداره و باید اونو از طریق کد نویسی اعمال کنید.