LinkDesktop

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

iLong = fCreateShellLink("..\..\Desktop", "Collegamento a _
Program", "C:\Path\Program.exe","")