VB常见问题与解决.docVIP

如何用VB建立快捷方式 Private Declare Function fCreateShellLink Lib STKIT432.DLL (ByVal lpstrFolderName AsString, 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, )　’添加到程序组　lReturn = fCreateShellLink(, Shortcut to Calculator, c:\windows\calc.exe, )　’添加到启动组　lReturn = fCreateShellLink(\Startup, Shortcut to Calculator, c:\windows\calc.exe, )End Sub 　　如何让程序在 Windows 启动时自动执行？　　有以下二个方法：　　方法1: 直接将快捷方式放到启动群组中。