Private Function ResolveShellLink(ByVal name As String) As String
        '--- Find the target for a short-cut
        If String.Compare(Path.GetExtension(name), ".lnk", True) <> 0 Then _
          Return name
        Dim shl As New Shell32.Shell
        Dim dir As Shell32.Folder = shl.NameSpace(Path.GetDirectoryName(name))
        Dim itm As Shell32.FolderItem = dir.Items().Item(Path.GetFileName(name))
        Dim lnk As Shell32.ShellLinkObject = CType(itm.GetLink, _
          Shell32.ShellLinkObject)
        Return lnk.Path
    End Function
 
    Private Sub ListView1_DragDrop(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop
        If e.Data.GetDataPresent("FileNameW", False) Then
            Dim names As System.Array = CType(e.Data.GetData("FileNameW", _
              False), System.Array)
            ListView1.Items.Add(ResolveShellLink(CStr(names.GetValue(0))))
        End If
    End Sub
 
    Private Sub ListView1_DragOver(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles ListView1.DragOver
        If e.Data.GetDataPresent("FileNameW", False) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub