引用：Windows Script Host ...
'创建快捷方式
Public Sub CreateShortCutOnDeskTop(ByVal Name As String, ByVal Description As String, TargetPath As String, WorkingDirectory As String)
Dim X As New IWshRuntimeLibrary.IWshShell_Class
Dim Y As IWshRuntimeLibrary.IWshShortcut_Class
'Attribute VB_Name = "ShortCut"
Set Y = X.CreateShortcut(X.SpecialFolders.item("AllUsersDesktop") & "" & Name & ".lnk")
Y.TargetPath = TargetPath
Y.Description = Description
Y.WorkingDirectory = WorkingDirectory
Y.Save
End Sub
---------------------------------------------------------------
http://www.sijiqing.com/vbgood/article/001192258.html
请参考
你之所以找不到库，是因为你的声明不对
Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal lpstrFolderName As String, & _
ByVal lpstrLinkName As String, & _
ByVal lpstrLinkPath As String, & _
ByVal lpstrLinkArgs As String) As Long
//比如这个fCreateShellLink不是VB6的API啊，你用AIP浏览器查下就知道了
---------------------------------------------------------------
DDE建立快捷方式的语法
1.创建程序组
命令格式为：
CreateGroup(程序组名[，程序组所在的路径])
程序组不存在时进行创建；如程序组存在则按照指定的路径激活。
2.删除程序组
命令格式为：
DeleteGroup(程序组名)
3.显示程序组
命令格式为；
ShowGroup(程序组名，显示标志)
显示标志用于控制程序组在程序管理器中以极大、极小或正常方式显示。
4.重新装入程序组
命令格式为：
ReLoadGroup(程序组名)
该命令使程序管理器先删除而后再重新装入一个已有的程序组。
5.向程序组中添加程序项
命令格式为：
AddItem(命令行[，描述[，图标路径[，图标序号[，图标横坐标，图标纵坐标[，工作区目录[，热键[，是否最小化显示标志]]]]]]])
命令行控制程序项的执行，可包括路径、参数等。其它参数分别对应在程序管理器中添加一个程序项时需要设置的参数和选项。它们都有缺省设置，因而是可选的。
6.替换程序组中的程序项
命令格式为：
ReplaceItem(程序项名)
该命令删除一个程序项，并将所删除程序项的位置记录下来，以后通过AddItem在这个所记录的位置增加新项目。
7.从程序组中删除程序项
命令格式为：
DeleteItem(程序项名)
从当前活动程序组中删除一个程序项。
8.关闭程序管理器
命令格式为：
ExitProgram(是否保存程序组信息标志)
