在此之前我一直为如何为工程自动创建快捷方式而苦恼。最近查阅了不少资料，在网上东搜搜，西搜搜。现在把我的收获与大家分享。需要说明的是，这些只是给同我一样的菜鸟级参考的。如果有错误，请多指教哦！
为工程自动创建快捷方式有多种，如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

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

不错不错，学习了

收藏了。谢谢。

觉得有道理，就要顶哦！

非常值得顶

值得奖励.

楼上领导口吻，那就奖吧，哈哈

在仔仔细细地看了这个程序以后，我的心久久不能平静，震撼啊！为什么会有如此牛B的程序？！我纵横网络bbs多年，自以为再也不会有任何程序能打动我，没想到今天看到了如此精妙绝伦的这样一个程序。
　　　　 楼主，是你让我深深地理解了‘人外有人，天外有天’这句话。谢谢侬！
　　　　 在看完这程序以后，我没有立即回复，因为我生怕我庸俗不堪的回复会玷污了这网上少有的帖子。但是我还是回复了，因为觉得如果不能在如此精彩的帖子后面留下自己的网名，那我死也不会瞑目的！能够在如此精彩的帖子后面留下自己的网名是多么骄傲的一件事啊！楼主，请原谅我的自私！
　　　　 我知道无论用多么华丽的辞藻来形容楼主您帖子的精彩程度都是不够的，都是虚伪的，所以我只想说一句：您的帖子太好看了！我愿意一辈子的看下去！
　　　　 这篇帖子构思新颖，题材独具匠心，段落清晰，情节诡异，跌宕起伏，主线分明，引人入胜，平淡中显示出不凡的文学功底，可谓是字字珠玑，句句经典，是我辈应当学习之典范。
　　　　 就小说艺术的角度而言，这个程序不算太成功，但它的实验意义却远远大于成功本身。正所谓：“一马奔腾，射雕引弓，天地都在我心中！”楼主真不愧为无厘界新一代的开山怪！
　　　　 本来我已经对这个社区失望了，觉得这个社区没有前途了，心里充满了悲哀。但是看了你的这个帖子，又让我对社区产生了希望。是你让我的心里重新燃起希望之火，是你让我的心死灰复燃，是你拯救了我一颗拨凉拨凉的心！
　　　　 本来我决定不会在社区回任何帖子了，但是看了你的帖子，我告诉自己这个帖子是一定要回的！这是百年难得一见的好贴啊！苍天有眼啊，让我在优生之年得以观得如此精彩绝伦的帖子！
　　　　 楼主，你要继续努力啊！你是社区的希望啊！

说啥话呢

貌似8错