关于VB调用VC的API函数形参是unsigned char*的问题

Question

函数原型：short USER_API dc_cpureset ( HANDLE icdev, unsigned char ∗ rlen, unsigned char ∗ databuffer )
VB中声明如下：Declare Function dc_cpureset Lib "Trf32.dll" (ByVal icdev As Long, ByRef rlen As Any, ByRef databuffer As Any) As Long

实际调用如下：
Dim sResponse(30) As Byte
Dim rlen As Byte
IccResetCard_T10N = dc_cpureset(icdev, rlen, sResponse(0))
一执行，程序自动退出了，求VB大拿指教啊

Answer 1

重新声明：Declare Function dc_cpuapduInt Lib "dcrf32.dll" (ByVal icdev As Long, ByVal slen As Long, ByVal sendbuffer As Long, ByVal rlen As Long, ByVal databuffer As Long) As Integer
调用如下：lret = dc_cpuapduInt(icdev, lstrlen, VarPtr(APDU(0)), VarPtr(rlen), VarPtr(sResponse(0)))
问题解决了，VB小白，与大家共勉吧