C++ DLL with Dev-CPP for use in Visual Basic 6

Downloaded Dev-Cpp / MinGW and built a standard DllProject.
Worked perfectly with __stdcall and __cdecl :)

Can you send me your project configuration ?


Here's the code i developed:
// BEGIN dll.h
#define _DLL_H_

#if BUILDING_DLL
# define DLLIMPORT __declspec (dllexport)
#else /* Not BUILDING_DLL */
# define DLLIMPORT __declspec (dllimport)
#endif /* Not BUILDING_DLL */


extern "C" __declspec( dllexport ) int HelloWorld();
extern "C" __declspec( dllexport ) __stdcall int HelloStdCall();
extern "C" __declspec( dllexport ) __cdecl int HelloCDecl();


#endif /* _DLL_H_ */
// END dll.h

//BEGIN dllmain.cpp
#include "dll.h"
#include <windows.h>

extern "C" __declspec( dllexport ) int HelloWorld()
{
    return 1;
};

extern "C" __declspec( dllexport ) __stdcall int HelloStdCall()
{
    return 2;
};

extern "C" __declspec( dllexport ) __cdecl int HelloCDecl()
{
    return 3;
};


BOOL APIENTRY DllMain (HINSTANCE hInst     /* Library instance handle. */ ,
                       DWORD reason        /* Reason this function is being called. */ ,
                       LPVOID reserved     /* Not used. */ )
{
    return TRUE;
}
// END dllmain.cpp


Compiled it with:
g++.exe -c dllmain.cpp -o dllmain.o -I"C:/Dev-Cpp/include/c++"  -I"C:/Dev-Cpp/include/c++/mingw32"  -I"C:/Dev-Cpp/include/c++/backward"  -I"C:/Dev-Cpp/include"  
dllwrap.exe --output-def libProject1.def --driver-name c++ --implib libProject1.a dllmain.o  -L"C:/Dev-Cpp/lib" --no-export-all-symbols --add-stdcall-alias  -o Project1.dll


Now, running dumpbin.exe /EXPORTS (needs Platform SDK or VS or Windbg package)
dumpbin /exports project1.dll

    ordinal hint RVA      name

          4    0 00001184 HelloCDecl
          1    1 0000117A HelloStdCall
          2    2 0000117A HelloStdCall@0
          3    3 00001170 HelloWorld


Then i made a very small test program in VB6,
Module.bas
Public Declare Function HelloWorld Lib "project1.dll" () As Long
Public Declare Function HelloStdCall Lib "project1.dll" () As Long
Public Declare Function HelloCDecl Lib "project1.dll" () As Long

And created a button in a form with the following code:
Private Sub Command1_Click()
    MsgBox HelloWorld
    MsgBox HelloStdCall
    MsgBox HelloCDecl
End Sub

This resulted in three msgboxes poping up, with 1, 2 and 3.

One thing you have to make sure is that it finds the most up to date and correct DLL.