Dll 的问题

[BaiYangSpirit]

我用VC里编了一个动态连接库mydll.dll，其中有一个函数如下：
int hf(int n,int w[],char str[])

在VB中调用时：
private Declare Function hf lib "mydll.dll"
(ByVal n As integer,ByRef w,ByRef aa) as Integer

dim aa as String;
dim bb (1 to 100) as integer;

if (hf(8,bb,aa) = 1) then MsgBox aa

出错

VB报错 dll调用错误。
……如之奈何？？

[lxcLinuxer]

SAFEARRAY

[qrlvls]

将 int hf (int n, int w[], char str[])
改成
extern "C" int hf (int n, int w[], char str[])
试试

[jerry]

private Declare Function hf lib "mydll.dll"
(ByVal n As Long,ByRef w,ByRef aa) as Integer