CreateLink

Declare Function fCreateShellLink Lib "Vb5stkit.dll" _
(ByVal lpstrFolderName As String, _
ByVal lpstrLinkName As String, _
ByVal lpstrLinkPath As String, _
ByVal lpstrLinkArgs As String) As Long
'se si usa vb4 la dll e' STKIT432.DLL

Call fCreateShellLink(Percorso, nome_collegamento, _
percorso_applicazione_a_cui_collegare,"")

'Il primo parametro (lpstrFolderName) si riferisce alla

'directory Programmi (di solito in c:\windows\menu avvio\programmi)

'per risalire e' necessario usare "..\"

'esempio: crea un collegamento al blocco note sul desktop

Call fCreateShellLink("..\..\Desktop", "Collegamento a notepad", _
"c:\windows\notepad.exe", "")