Уважаемые знатоки, подскажите пожалуйста в чём эдесь ошибка? При вызове Dll написанной Visual C++ из Visual Basic возникает ошибка 49 (Bad Dll Calling Convention). Вот файлы:

Project1.h:

#ifndef _PROJECT1_H_
#define _PROJECT1_H_

#include <iostream.h>
#include <stdio.h>
#include <windows.h>

extern "C" __declspec(dllexport) int strGroupTime(int a);

#endif


Project1.cpp:

#include "project1.h"

extern "C" __declspec(dllexport) int strGroupTime(int a)
{
a=a+1;
return a;
}


Module1.bas:

Option Explicit

Public Declare Function strGroupTime Lib "CheckTime.dll" (ByVal a As Integer) As Integer


Form1(Code):

Private Sub Command1_Click()

Dim intA As Integer
Dim strB As String
Dim intV As Integer

intV = 50

intA = strGroupTime(intV)
strB = Str(intA)
Label1.Caption = strB

End Sub