Creare un collegamento (.lnk)

[XbesT]

Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long


Private Sub Command1_Click()
Dim ilong As Long
ilong = fCreateShellLink("C:\Programmi", "Collegamento a WinRAR", "C:\Programmi\WinRAR\WinRAR.exe", "")
End Sub


Note:
Ho Scaricato la libreria STKIT432.DLL (ver 4.0.2422.0), l'ho messa nella cartella di installazione di VB6, nella cartella dove ho salvato il progetto...che devo fare ancora?

GRAZIE !!!