Visual Basic 6 - Creare Collegamenti

Ciao a tutti sapete mica come posso fare a creare collegamenti tramite VB? Quelli .ink che vanno sul desktop. Biosgna richiamare delle API? Grazie in anticipo.

prova questo :

Private Declare Function OSfCreateShellLink Lib "vb6stkit.dll" Alias 
"fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As 
String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, 
ByVal fPrivate As Long, ByVal sParent As String) As Long 


risultato = OSfCreateShellLink("..\..\Desktop", "NOME_ICONA" & Chr(0), 
"PERCORSO_E_NOME_FILE_DESTINAZIONE", "", True, "$(Programs)") 

grazie, appena ho un po' di tempo lo provo.