VB 建立快捷方式

Private Declare Function fCreateShellLink Lib "VB5STKIT.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" , "ShortcuttoCalculator" , "c:\windows\calc.exe" , "" )
'添加到程序组
lReturn = fCreateShellLink( "" , "ShortcuttoCalculator" , "c:\windows\calc.exe" , "" )
'添加到启动组
lReturn = fCreateShellLink( "\Startup" , "ShortcuttoCalculator" , "c:\windows\calc.exe" , "" )
End Sub