主题：[分享]发布后主程序版权信息的解决方案

 谢谢分享。生成桌面快捷方式，可以这样写代码

Dim wsh As object = CreateObject("WScript.Shell")
Dim PathLink As String =  SpecialFolder.DesktopDirectory & "/test.lnk"
If Not PathLink.ToLower.EndsWith(".lnk") Then
    PathLink = PathLink & ".lnk"
End If
Dim wshs As object = wsh.CreateShortcut(PathLink)
wshs.TargetPath = ProjectFile
wshs.Save()
wshs = Nothing
wsh = Nothing