I was try work with “CreateShellLink” DLL but I get
ERROR “Bad DLL calling convention”

Public Declare Function CreateShellLink Lib "LNKFILES.DLL" (lpzLinkFileName _ As String, lpzExeFileName As String) As Integer

Private Sub Command1_Click()
Dim lclinkfile As String
Dim lcexefile As String
Dim lnresultas As Integer

lclinkfile = "C:\WINNT\Profiles\pinhas\Desktop\My Executable POLY.LNK"
lcexefile = "C:\POLY.exe"
lnresultas = CreateShellLink(lcexefile, lclinkfile)
End Sub


May you can help me
Pini