基礎如何用建立快捷方式呢

Private Declare Function fCreateShellLink Lib \"L\"(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\\e\",\"\")

\'\'添加到程序組

lReturn=fCreateShellLink(\"\\Startup\",\"Shortcut to Calculator\",\"c:\\windows\\e\",\"\")

End Sub