'Globals
'****************************************************************
'Windows API/Global Declarations for :Making Shortcuts Under Windows 95
'****************************************************************


Declare Function fCreateShellLink _ 
       Lib "STKIT432.DLL" _
       (ByVal lpstrFolderName as String _
       ByVal lpstrLinkName as String _
       ByVal lpstrLinkPath as String _
       ByVal lpstrLinkArgs as String ) As Long

'Code
'****************************************************************
' Name: Making Shortcuts Under Windows 95
' Description:Use the VB 4.0 setup kit declarations below to
'      create your own shortcuts! (Note:requires STKIT432.DLL to b
'     e in the user's path)
' By: Ian Ippolito
'
' Inputs:1)Where to the shortcut will be created. This is relative to the Programs folder on the Start menu. 
2)Text to appear with the link.
3) The file path.
4)Command line arguments.
' Returns:None
' Assumes:None
' Side Effects:None
'
'Code provided by Planet Source Code(tm) 'as is', without
'     warranties as to performance, fitness, merchantability,
'     and any other warranty (whether expressed or implied).
'****************************************************************

Dim longReturn as Long
longReturn = fCreateShellLink("..\..\Desktop", "This is word", "C:\apps\develop\word\word.exe","")