基础:如何用VB建立快捷方式

　　   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 Command1Click()

  Dim lReturn As Long '添加到桌面

  lReturn=fCreateShellLink("..\..\Desktop","Shortcut to Calculator","c:\windows\calc.exe","")

  '添加到程序组

  lReturn=fCreateShellLink("\Startup","Shortcut to Calculator","c:\windows\calc.exe","")

  End Sub

原文转自：http://www.ltesting.net