vb 安装程序 怎么在桌面建立快捷方式

VB打安装包时,自带的没有这个功能,您可以在网上下载其它的安装程序生成器来做,有些功能非常强,能满足您的需求

开始—>搜索，把VB图标找出来，再把它拉到桌面就可以。其他的图标也可以这样。

修改一下 发布程序的源码，然后加入
Private Sub Command1_Click()
Set WshShell = CreateObject("Wscript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oMyShortCut = WshShell.CreateShortcut(strDesktop & "\快捷方式文件名.lnk")
oMyShortCut.TargetPath = App.Path & "\" & App.EXEName & ".exe"
oMyShortCut.Save
End Sub

或者
用那个打包了快捷方式函数的dll...不推荐