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