Creare un collegamento di un' icona con vB

[sintax_error]

E' richiesta la libreria STKIT432.DLL nella directori di Lavoro(app.path) o CurDir a secondo dei casi
In un Modulo:

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

iLong = fCreateShellLink("..\..\Desktop", "Titolo_visualizzato", "Directorydestitinazione", ""nomefile.exeda eseguire", "")
End If

in pratica non fai altro che passare i valori richiesti dalla dll
ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String
il quarto argomernto e' facoltativo.

io non sono riuscito invece a mettere il link nel menu
Start Programmi in una cartella ma sul Desktop con Windows Xp il codice sopra funziona

Ciao