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","")



Ciao !