Trovato questo codice per metere link sul Desktop

[code]
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 iLong As Long
iLong = fCreateShellLink("..\..\Desktop", "Link a _
Program", "C:\Path\Program.exe","")

[code]

e funziona ,ma non risco careare una cartella in Start/programmi.
Se metto dolo il Link va bene ma io ho bisogno di inserire il link in una Cartella del Tipo:Start/programmi/mio programma/LInk a .exe.

Ciao e auguri di buon anno a titti