[vb/shell script] ico uit link lezen

[Eastern]

Ik wil een icoon uit een shelllink lezen:

code:

Public Property Get Icon() As IPicture
    Dim s As String, i As Long, hIcon As Long
    s = String$(MAX_PATH, 0)
    link.GetIconLocation s, MAX_PATH, i
    hIcon = ExtractIcon(App.hInstance, s, i)
    Set Icon = IconToPicture(hIcon)
End Property

Nu werkt GetIconLocation niet, die accepteerd maar een argument en gooit daarin het pad naar het bestand waarin de ico staat. De ico-index wordt echter niet meegegeven, en die heb ik ook nodig.