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

Dim wsh As object = CreateObject("WScript.Shell")
Dim str As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim PathLink As String = str & "\" & "oaexe.exe"  

If Not PathLink.ToLower.EndsWith(".lnk") Then
    PathLink = PathLink & ".lnk"
    MessageBox.Show(PathLink)
End If

Dim wshs As object = wsh.CreateShortcut(PathLink)
wshs.TargetPath = ProjectPath &  "qb.exe"   '这里是快捷方式的指向
wshs.Save()