Private Sub PictureBox1_DragDrop(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop
        Try
            PictureBox1.Image = Image.FromFile(CType(e.Data.GetData( _
              DataFormats.FileDrop), Array).GetValue(0).ToString)
            Label1.Text = (CType(e.Data.GetData(DataFormats.FileDrop), _
            Array).GetValue(0).ToString)
        Catch ex As Exception
            MessageBox.Show("Error Doing Drag/Drop")
        End Try
    End Sub
 
    Private Sub PictureBox1_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragEnter
        If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub