(100分)奇怪问题？

[JEFFzuo]

在VC中定义的Win API
BASE_EXPORT long WINAPI Func(UCHAR *p, int i,int j);
在VB的Module中声明
Public Declare Function Func Lib "DLL.dll" (ByRef p As Byte, ByVal i As Long,ByVal j As Long) As Long
窗体中调用
Dim r as Long
Dim p(0 to 7) as byte
r = Func(p(0),8,1)
运行的时候编译器给出实时错误9,下标越界...

有几个同样的函数处理上没有什么问题，请问各位，这是我声明有问题，造成了调用函数不稳定，还是别的什么问题。
另外，在VC中调用那个Func是好用的。

[hcj2002]

改成

Public Declare Function Func Lib "DLL.dll" (ByVal str As string, ByVal i As Long,ByVal j As Long) As Long
试试

[JEFFzuo]

o, 这样是不行的

[lemonchen]

两种方法
1 修改声明：Public Declare Function Func Lib "DLL.dll" (ByVal str As string, ByVal i As Long,ByVal j As Long) As Long

2 修改调用方式
Dim p as byte
r = Func(p,8,1)

[wangqingyu]

Up

[minghui000]

123

[JEFFzuo]

OK，Thanks all man for help