求助：VB调用VC自编dll

Question

在vc里编了一个简单的dll文件：dlltest.dll。其中只有一个简单的全局函数：int Test(int x)。{x=x+100; return x;}
然后在vb里调用：
Private Declare Function Test Lib "d:\a\dlltest.dll" (ByVal x As Long) As Long
dim y as long
Private Sub Command1_Click()
y=100
MsgBox Test(y), vbOKOnly
End Sub
运行后警告说：Bad dll calling convention!
哪位大侠给指点一下，谢谢！
如果用过，给个简单的例子参考一下也好呀 ？

Answer 1

dim y as long
试一下

Answer 2

注意,vc写的DLL，一定要在你的函数之前加__stbcall修饰，如果没有就会出现你那样的问题！如以下的例子！
int __stdcall Min(int a, int b)
{
if(a>=b)return b;
else return a;
}