Problem with IJL15.DLL

[Marina-Jo]

I have a problem with IJL15.DLL...
My declarations are ;

Private Declare Function ijlInit Lib "ijl15.dll" (jcprops As Any) As Long
Private Declare Function ijlFree Lib "ijl15.dll" (jcprops As Any) As Long
Private Declare Function ijlRead Lib "ijl15.dll" (jcprops As Any, ByVal ioType As Long) As Long
Private Declare Function ijlWrite Lib "ijl15.dll" (jcprops As Any, ByVal ioType As Long) As Long
Private Declare Function ijlGetLibVersion Lib "ijl15.dll" () As Long
Private Declare Function ijlGetErrorString Lib "ijl15.dll" (ByVal code As Long) As Long

I Open my DLL in the application path;

Private Sub WriteJPGLib()
On Error Resume Next
If modJPG.InstalledOK = False Then
    ' IJL15.DLL isn't installed. Wait! I have it in my resource file!
    ' I'm going to write the Intel JPG handler in the Application's path
    ' There's no need to put it in the system or system32 directory... it'll work here
    b = -1
    TargetDLL = App.Path
    If Right(TargetDLL, 1) <> "\" Then TargetDLL = TargetDLL & "\"
    TargetDLL = TargetDLL & "ijl15.dll"
    b = FileLen(TargetDLL)
    If b <= 0 Then
        Dim a As Long
        a = FreeFile
        Open TargetDLL For Output As #a
        Print #a, StrConv(LoadResData("INTEL_JPG", "CUSTOM"), vbUnicode);
        Close #a
        End If
    End If
End Sub

But when i call the library as;

Public Function LoadJPG(ByRef cDib As cdibSection, ByVal sFile As String) As Boolean
Dim tj As JPEG_CORE_PROPERTIES_VB
Dim lR As Long
 
   lR = ijlInit(tj)
   If lR = IJL_OK Then

It gives error saying that it can not find ijlInit.dll ?? although it is exist allready in the app.path!!!!!!!
I need Help