如何在桌面上建圖標？

Question

VB源代码:
添加一个按钮Command1;
如果时候VB5.0请把dll库名改为Vb5stkit.dll;
如果是Win98，请把C:\winnt\system32改为C:\Windows；      Option Explicit      'NOTE: In Visual Basic 5.0, change Stkit432.dll in the following
      'statement to Vb5stkit.dll.       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 Command1_Click()        Dim lReturn As Long        'Add to Desktop
        lReturn = fCreateShellLink("..\..\Desktop", _
        "Shortcut to Calculator", "c:\Winnt\system32\calc.exe", "")        'Add to Program Menu Group
        lReturn = fCreateShellLink("", "Shortcut to Calculator", _
        "c:\Winnt\system32\calc.exe", "")        'Add to Startup Group        'Note that on Windows NT, the shortcut will not actually appear
        'in the Startup group until your next reboot.
        lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", _
        "c:\Winnt\system32\calc.exe", "")      End Sub

Answer 1

行吗？不行的话，我还有 iShellLink API....，你怎么了？