' 下面的代码向你演示在VB中如何创建一个快捷方式。 Private Declare Function fCreateShellLink() Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long Sub Command1_Click()Sub Command1_Click()Dim lReturn As Long'添加到桌面lReturn = fCreateShellLink("....Desktop", "Shortcut to Calculator", "c:windowscalc.exe", "")'添加到程序组lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:windowscalc.exe", "")'添加到启动组lReturn = fCreateShellLink("Startup", "Shortcut to Calculator", "c:windowscalc.exe", "")End Sub