VB怎么运行程序就建立一个本程序的快捷方式

VB如何运行程序就建立一个本程序的快捷方式！
VB如何运行程序就建立一个本程序的快捷方式！
如果在不同的文件目录运行，快捷方式也要能运行到程序！


另： 还有一个问题!

  比如桌面上有连个EXE程序，名称分别为1.EXE和2.EXE

 如果直接双击运行2.EXE就提示“非法运行”

要双击1.EXE才能正常运行2.EXE这个程序！

 请问怎么搞？




------解决方案--------------------
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

Sub Command1_Click()
Dim lReturn As Long
'添加到桌面
lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")
End Sub
------解决方案--------------------
参考一下我写的（怎样用代码创建桌面快捷方式）：http://topic.csdn.net/u/20080328/15/9152a78b-05b4-4c04-810d-15ad59408d33.html