2002-06-09 08:59

     OPTION = EXPLICIT

'NOTE: In Visual Basic 5.0, change Stkit432.dll in the following
'statement to Vb5stkit.dll.

     DECLARE FUNCTION fCreateShellLink LIB "STKIT432.DLL" ALIAS "fCreateShellLink" (BYVAL _
      lpstrFolderName AS STRING, BYVAL lpstrLinkName AS STRING, BYVAL _
      lpstrLinkPath AS STRING, BYVAL lpstrLinkArgs AS STRING) AS LONG

     DIM lReturn AS LONG

'Add to Desktop
     lReturn = fCreateShellLink("..\..\Desktop", _
      "Shortcut to Solitare", "c:\windows\sol.exe", "")

'Add to Program Menu Group
     lReturn = fCreateShellLink("", "Shortcut to Solitare", _
      "c:\Windows\sol.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 Solitare", _
      "c:\Windows\sol.exe", "")

     END

2002-06-09 08:59