Erreur d'execution '49': convention d'appel de DLL incorrecte

__declspec(dllexport) double __cdecl test(double radius)
{
   return (4 * radius * radius);
}

et au niveau du VB6 le code est :

Private Declare Function test Lib "EasyDLL.dll" (ByVal r As Double) As Double

Private Sub Command2_Click()
    Dim v As Double
    v = 1.234
    Text5.Text = test(v)
   
End Sub

Quelqu'un pourrait m'aider
Merci d'avance

te faut du __stdcall comme convention d'appel

Si t'es sous VC++, tu dois ajouter le paramètre /DEF:nomdufichierdef.def au linker.
Et ce fichier doit contenir ceci (si un double fait 8 octets) :
LIBRARY nomdelalib
EXPORTS
test = _test@8