Private Sub pb_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles pb.DragDrop
        Try
            Dim filename As String = (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

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008