Private Sub pb_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles pb.DragDrop
        Try
            pb.Image = Image.FromFile(CType(e.Data.GetData( _
              DataFormats.FileDrop), Array).GetValue(0).ToString)
 
        Catch ex As Exception
            MessageBox.Show("Fehler")
        End Try
    End Sub
 
    Private Sub pb_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles pb.DragEnter
        If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub