>VB coding, => VFP ?
>===================================================================
>Create a shortcut in Windows on the desktop and on the start menu
>Utility for placing an icon in the system tray
>
>'NOTE: In Visual Basic 5.0, change Stkit432.dll in the following
>'statement to Vb5stkit.dll. Stkit432.dll is for Visual Basic 4.0
>
>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
>
>
> Dim lReturn As Long
>
> 'Add to Desktop
> lReturn = fCreateShellLink("..\..\Desktop", _
> "Shortcut to Calculator", "c:\windows\calc.exe", "")
>
> 'Add to Program Menu Group
> lReturn = fCreateShellLink("", "Shortcut to Calculator", _
> "c:\windows\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:\windows\calc.exe", "")

Look at George Tasker's entry in the Files section for equivalent functionality, or better, use the Wscript.Shell object's CreateShortcut method.