Problem In calling DLL Function from VB

[0100]

Hi all


when executing my VB Code it tells me that
=>>error : DLL Call Convention is incorrect ...


Here are the essential lines i wrote in my VB code to use the DLL function :

________________________________________________________
Public Declare Function CWorkingDir Lib ".\MyDll.dll"
(ByVal WorkingDir As String) As Integer

Public Declare Function LoadLibrary Lib "kernel32" Alias
"LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function FreeLibrary Lib "kernel32"
(ByVal hLibModule As Long) As Long

Public Const DEF_MY_DLL As String =".\MyDll.dll"

........
.......
Sub Main()

.......
Dim intVar As Integer
IntRet = LoadLibrary(DEF_MY_DLL)
.......
intVar = CWorkingDir(".&quot
.......
end Sub
_____________________________________________________

Ps : MyDll is a simple DLL without Class but only simple function exported in the conventional way

Please is there any suggestion or solution

thanx in advance

 

[soumya123]

I can see one line in your code that struck me:
IntVar=LoadLibrary(...)
The LoadLibrary function returns a long, while the IntVar variable seems to be an integer. Check for the variable type.
If that doesn't work, try to send a byte array to the LoadLibrary function instead of directly sending the string. In many calls to exported functions, VB string would create problems because of its complex structure. As you probably know a VB string is a BSTR.