DLL 调用约定错误如何解决啊

[oneboy26]

Private Declare Function OSfCreateShellLink Lib "Vb5stkit.dll" Alias "fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As Long
Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox "游戏路经不能为空", , "提示"
Text1.SetFocus
Else
If Text2.Text = "" Then
MsgBox "游戏名称不能为空", , "提示"
Text2.SetFocus
Else
lresult = OSfCreateShellLink("..\..\desktop", Text2.Text, Text1.Text, "")
End If
End If

End Sub

程序运行的时候提示DLL 调用约定错误，请问如何解决啊
谢谢了