Creare un collegamento di un' icona con vB

[Dax2049]

Ciao ragazzi mi servirebbe sapere qualè il comando da VB per creare un collegamento a un'icona sul desktop.
Cioè ho realizzato un programma di installazione, ma ora nn sò come creare il collegamento al desktop dell'icona del programma.

[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