关于如何添加桌面快捷方式

Private   Declare   Function    
   
  OSfCreateShellGroup   Lib   "Vb5stkit.dll"   _  
   
  Alias   "fCreateShellFolder"    
   
  (ByVal   lpstrDirName   As   String)   As   Long  
   
  Private   Declare   Function    
   
  OSfCreateShellLink   Lib   "Vb5stkit.dll"   _  
   
  Alias   "fCreateShellLink"    
   
  (ByVal   lpstrFolderName   As   String,   _  
   
  ByVal   lpstrLinkName   As   String,  
   
  ByVal   lpstrLinkPath   As   String,   _  
   
  ByVal   lpstrLinkArguments   As   String)   As   Long  
   
  Private   Declare   Function    
   
  OSfRemoveShellLink   Lib   "Vb5stkit.dll"   _  
   
  Alias   "fRemoveShellLink"    
   
  (ByVal   lpstrFolderName   As   String,   _  
   
  ByVal   lpstrLinkName   As   String)   As   Long  
   
  ----   其中lpstrDirName指定了程序组的名称；lpstrfoldername指定保存快捷方式的文件夹，默认为“c:/Windows/start   menu/programs”，lpstrlinkname指定快捷方式的文件名，lpstrpathname指定快捷方式所指向的应用程序或文件。    
   
  ----   下面的代码具体演示了以上三个函数的用法：    
   
  ----   首先在VB下新建“工程”，然后在Form1的“通用”，“声明”部分输入上面列出的函数声明，然后在Form1上添加三个命令按钮，在其Click事件中分别输入：    
   
  Private   Sub   Command1_Click()  
   
  Dim   lresult   As   Long  
   
  '在桌面创建记事本的快捷方式  
   
  lresult   =   OSfCreateShellLink("../../desktop",  
   
  "记事本",   "c:/Windows/notepad.exe",   "")  
   
  '在开始菜单创建记事本的快捷方式  
   
  lresult   =   OSfCreateShellLink("../../start   menu",    
   
  "记事本",   "c:/Windows/notepad.exe",   "")  
   
  '在程序菜单的Test程序组下创建记事本的快捷方式  
   
  lresult   =   OSfCreateShellLink("test",   "记事本",    
   
  "c:/Windows/notepad.exe",   "")  
   
  End   Sub  
   
  Private   Sub   Command2_Click()  
   
  Dim   lresult   As   Long  
   
  '在程序菜单中添加一个名为Test的程序组    
   
  lresult   =   OSfCreateShellGroup("Test")  
   
  End   Sub  
   
  Private   Sub   Command3_Click()  
   
  Dim   lresult   As   Long  
   
  '删除开始菜单上的快捷方式  
   
  lresult   =   OsfRemoveShellLink  
   
  ("../../start   menu",   "记事本")  
   
  '删除桌面上的快捷方式  
   
  lresult   =   OsfRemoveShellLink  
   
  ("../../desktop",   "记事本")  
   
  '删除Test程序组下的快捷方式  
   
  lresult   =   OSfRemoveShellLink("Test",   "记事本")  
   
  End   Sub