Private Sub DragEnterSub(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs)
        If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
            e.Effect = DragDropEffects.Copy
        End If
        geticon((CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue( _
          0).ToString), 1, pb(i))
    End Sub
 
    'DragDropProzedur - ermittelt Dateipfad und erstellt Configdatei im 
    ' Configordner:
    Private Sub DragDropSub(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs)
        geticon(sender, (CType(e.Data.GetData(DataFormats.FileDrop), _
        Array).GetValue(0).ToString), sender, sender)
        Dim Verzeichnis As String = IO.Path.GetDirectoryName(CType( _
        e.Data.GetData(DataFormats.FileDrop), Array).GetValue(0).ToString)
        Dim dateiname As String = IO.Path.GetFileName(CType(e.Data.GetData( _
        DataFormats.FileDrop), Array).GetValue(0).ToString)
        Dim pfad As String = Verzeichnis & "\" & dateiname
        My.Computer.FileSystem.WriteAllText("config\pb" & sender & _
          "\pbconfig.ini", pfad, False)
    End Sub
 
    'Extrahiert das Icon aus der gedraggten Datei, stellt es in der PB dar und 
    ' speichert es im Config Ordner:
    Private Sub geticon(ByVal sender As Object, ByVal sFile As String, ByVal _
      pbNummer As Integer, ByVal PictureBox As System.Windows.Forms.PictureBox)
        Dim oIcon As Icon = Icon.ExtractAssociatedIcon(sFile)
        Dim newBitmap As New Bitmap(oIcon.ToBitmap, 32, 32)
        If File.Exists("config\pb" & pbNummer & "\pbBild.bmp") Then
            File.Delete("config\pb" & pbNummer & "\pbBild.bmp")
            newBitmap.Save("config\pb" & pbNummer & "\pbBild.bmp")
        Else
            newBitmap.Save("config\pb" & pbNummer & "\pbBild.bmp")
        End If
        pb(pbNummer).Image = newBitmap
    End Sub