主题：请问怎么指定生成快捷方式的图标？

Dim wsh As object = CreateObject("WScript.Shell")
Dim PathLink As String = "d:\abcdefg.lnk"
If Not PathLink.ToLower.EndsWith(".lnk") Then
    PathLink = PathLink & ".lnk"
End If
Dim wshs As object = wsh.CreateShortcut(PathLink)
wshs.TargetPath = "c:\"
wshs.IconLocation = "d:\test.ico"
wshs.Save()
wshs = Nothing
wsh = Nothing