Ja sam koristio stariji DLL vb5Stkit.dll i tu radi bez problema
Code:
Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" _
(ByVal lpstrFolderName As String, _
ByVal lpstrLinkName As String, _
ByVal lpstrLinkPath As String, _
ByVal lpstrLinkArgs As String _
) As Long
Private Sub Form_Load()
'Create a shell link on your desktop
lngresult = fCreateShellLink("..\..\Desktop", "LINK", "C:\myfile.exe", "")
lngresult = fCreateShellLink("..\..\Desktop", "LINK1", "C:\myfile.exe", "")
lngresult = fCreateShellLink("..\..\Desktop", "LINK2", "C:\myfile.exe", "")
End Sub