请教在VB调用DLL回调函数作参数的问题

Question

请教在VB中如何调用Dll中的这个函数
bool BeginMultiInv(unsigned char usercode, HANDLE_FUN fun_name )
fun_name 调用者定义的回调函数如下
void _stdcall handle_data(BYTE* pData, int length)

Answer 1

新建一个标准模块，添加代码
public sub callback(byref pData() as byte, byval length as long)
...
end sub
调用
BeginMultiInv(usercode, addressof callback)