在VB中如何打包，安装时能自动在桌面上生成程序的快捷方式，利用VB自带的打包程序只能在开始菜单中创建快捷方式。
方法用专门的打包软件,否则直接用VB打包，可以这样做：
一、打开VB98/Wizards/PDWizard/Setup1/setup1.vbp工程。
二、打开名称为 basSetup1 的标准模块，声明两个公用变量：
Public lnkName As String
Public lnkPath As String
三、在上面打开的 basSetup1 标准模块中找到“CreateShellLink”过程，并找到下面的的内容：
If fSuccess Then
If fLog Then
CommitAction
End If
Else
在If…Else之间加上：
If InStr(strLinkPath, “.EXE”) Or InStr(strLinkPath, “.exe”) Then
If lnkName = “” Then
lnkName = strLinkName
lnkpath = strLinkPath
End If
End If

四、打开名称为frmSetup1的代码窗口，并在Form_Load 事件中找到以下内容：
‘
‘ Create program icons (or links, i.e. shortcuts).
‘
If fMainGroupWasCreated Or (cIcons > 0) Then
ShowStaticMessageDialog ResolveResString(resPROGMAN)
CreateIcons gsICONGROUP
‘
‘ Do the same for other sections in SETUP.LST if you’ve added your own.
‘
‘CreateIcons “MySection”
‘CreateIcons “MyOtherSection”
‘
End If
在If… End If中加上：
（VB 5.0中）
If MsgBox(“是否要创建桌面上快捷方式？”, 32 + 4, “创建桌面快捷方式”) = vbYes Then
OSfCreateShellLink “../../Desktop”, lnkName, lnkPath, “”
End If

（VB 6.0中）
If MsgBox(“是否要创建桌面快捷方式？”, 32 + 4, “创建桌面快捷方式”) = vbYes Then
OSfCreateShellLink “../../Desktop”, lnkName, lnkPath, “”, True, “$(Programs)”
End If

（WinXP系统）
If MsgBox(“是否要创建桌面快捷方式？”, 32 + 4, “创建桌面快捷方式”) = vbYes Then
OSfCreateShellLink “../../桌面”, lnkName, lnkPath, “”, True, “$(Programs)”
End If
五、保存工程，并重新编译Setup1.vbp，用新编译的Setup1.exe替换原来的VB98/Wizards/PDWizard/Setup1.exe。

￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥￥

创建卸载快捷方式

1。在“Package and Deployment Wizard – Start Menu Items”步骤中，选择“New Item”
2。标题可以随便写
3。Target为：$(WinPath)ST6UNST.EXE -n “$(AppPath)ST6UNST.LOG”
4。Start in为：$(WinSysPath)

安装后在开始菜单中就会有卸载一项