Slepen zichtbare picture image

  Private m_MouseIsDown As Boolean = False

    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
  If Not PictureBox1.Image Is Nothing Then
     m_MouseIsDown = True
        End If
    End Sub
  
  Private Sub PictureBox_MouseMove(ByVal sender As Object,
                             ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If m_MouseIsDown Then         
            PictureBox1.DoDragDrop(PictureBox1.Image, DragDropEffects.Copy Or
DragDropEffects.Move)
        End If
        m_MouseIsDown = False


    End Sub

    Private Sub P1_DragEnter(ByVal sender As Object, ByVal e As _
System.Windows.Forms.DragEventArgs) Handles P1.DragEnter
  If e.Data.GetDataPresent(DataFormats.Bitmap) Then
            ' Check for the CTRL key. 
            If e.KeyState = 9 Then
                e.Effect = DragDropEffects.Copy
            Else
                e.Effect = DragDropEffects.Move
            End If
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub
 
   Private Sub P1_DragDrop(ByVal sender As Object, ByVal e As _
System.Windows.Forms.DragEventArgs) Handles P1.DragDrop
  If Not P1.Image Is Nothing Then
            Exit Sub
        End If
    P1.Image = e.Data.GetData(DataFormats.Bitmap)
        If Not e.KeyState = 8 Then
            PictureBox1.Image = Nothing
        End If
        
    End Sub

 Private Sub PictureBox1_MouseMove(ByVal sender As Object,
                             ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If e.Button = System.Windows.Forms.MouseButtons.Left Then
     With popCur
                .popType = popcursor.epopType.Picture
                .popImage = CType(PictureBox1.Image, Bitmap)
                .PopIt()
            End With
            Timer11.Start()
            DoDragDrop(PictureBox1.Image, DragDropEffects.Copy)
        End If