在此之前我一直为如何为工程自动创建快捷方式而苦恼。最近查阅了不少资料，在网上东搜搜，西搜搜。现在把我的收获与大家分享。需要说明的是，这些只是给同我一样的菜鸟级参考的。如果有错误，请多指教哦！
为工程自动创建快捷方式有多种，如API函数、自动起用WIN的创建快捷方式向导等。但我比较来，比较去，觉得还是以下方法既简单有效、又易于理解。
首先在工程的引用中选中Windows Scripting Host Object Model

Option Explicit
Private Sub Command1_Click()
Dim WSH_shell, urlLink, deskPath
Set WSH_shell = New IWshShell_Class
deskPath = WSH_shell.SpecialFolders("Desktop") '获得桌面路径
Set urlLink = WSH_shell.CreateShortcut(deskPath & "\你的EXE文件名.lnk")
With urlLink
.TargetPath = "你的EXE文件名（含路径和后缀.exe）"
.IconLocation = "图标文件路径"-----也可以不要
.Hotkey = "CTRL+SHIFT+D"’设置热键
.WorkingDirectory = "EXE文件的路径" '设置起始位置
.WindowStyle = WshNormalFocus
'可以设的值有WshHide、WshMaximizedFocus、WshMinimizedFocus、
'WshMinimizedNoFocus、WshNormalFocus、WshNormalNoFocus
End With
urlLink.Save '保存快捷方式

End Sub

很简单的代码，却能设置热键、快捷方式、窗口运行模式等。