Create shortcut problem. HELP!

I have the following code inserted in my vb6 program

Option Explicit

'NOTE:
'In Visual Basic 6.0 = Vb6stkit.dll

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

Private Sub cmdRegular_Shortcut_Click()

Call fCreateShellLink("\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")

End Sub

An error occurs at the call fCreateShellLink. VB stated "Bad dll calling convention". Any ideas??? Thanks!

[Nitro]

Option Explicit

'NOTE:
'In Visual Basic 5.0 & 6.0 = Vb5stkit.dll
'In Visual Basic 4.0       = Stkit432.dll

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 cmdRegular_Shortcut_Click()
  'PURPOSE: Add to Startup Group
  'Note that on Windows NT, the shortcut will not actually
  'appear in the Startup group until your next reboot.
  Call fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\calc.exe", "")
  MsgBox "Shortcut of calculator has resided in \Startup"
  
  'PURPOSE: Add to Desktop
  'Call fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")
  
  'PURPOSE: Add to Program Menu Group
  'Call fCreateShellLink("", "Shortcut to Calculator", "c:\windows\calc.exe", "")
End Sub

Thanks for the response, Nitro. I try the code but it still doesn't work. I look for the vb5stkit.dll on my system and couldn't find it. Do you know where I can get the file??

[Nitro]

That is very odd that it didn't work. Did you change Vb6STKIT.dll to Vb5STKIT.dll? Anyway, just go to yahoo and type Vb5STKIT in the search box.

If you can't find it, send me an email and I will send you back the file, since you did not post your email.

[email protected]

Thanks!