Ordner auf Picturebox ziehen vb net

Hallo,
wie kann ich es machen, dass der Benutzer ganz normal einen Ordner ziehen kann auf eine Picturebox in meinem Programm und dort das Icon angezeigt wird???

Code:

 Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" _
(ByVal hInst As IntPtr, ByVal lpszExeFileName As String, ByVal nIconIndex As Integer) As IntPtr

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.StartPosition = FormStartPosition.Manual
        Dim hIcon As IntPtr
        hIcon = ExtractIcon(Me.Handle, "%SystemRoot%\System32\shell32.dll", 3)
        If hIcon <> 0 And hIcon <> 1 Then
            Dim ic As Icon = Icon.FromHandle(hIcon)
            Button1.Image = ic.ToBitmap
        End If
    End Sub

So wird mir ein ordner symbol angeziegt aber wie mach ich das mit dem hinaufziehen???

 

http://msdn.microsoft.com/de-de/library/aa289508(vs.71).aspx

Drag & Drop implementieren in VB NET

Dann musst du nurnoch eine Anweißung schreiben, welche nach erfolgtem Drag & Drop ein Ordnersymbol darstellt und ggf. die entsprechende Beschriftung des Original Ordners z.b. per Label hinzufügen. Vergiss aber das onClick Event nicht für das entsprechende Symbol zu deklarieren, damit sich der Ordner dann bei Click auch öffnet

 

ja ok aber dann geht es ja in die Listbox. Und wie schaff ich es, dass dann das Icon in einer Picturebox angezeigt wird.