vb中调用VC动态库的问题

Question

VCI_ReadErrInfo
描述
此函数用以获取最后一次错误信息。
DWORD __stdcall VCI_ReadErrInfo(DWORD DevType, DWORD DevIndex, DWORD CANIndex, PVCI_ERR_INFO pErrInfo);
参数
DevType
设备类型号。
DevIndex
拨码ID。
CANIndex
第几路CAN。
pErrInfo
用来存储错误信息的VCI_ERR_INFO结构指针。 ErrCode Passive_ErrData ArLost_ErrData 错误描述
0x0100
设备已经打开
0x0200
打开设备错误
上面这段代码改用VB声明的话，我这样写对吗？
Declare Function VCI_ReadErrInfo Lib "ControlCAN.dll" (ByVal DevType As Long, ByVal DevIndex As Long, ByVal CANIndex As Long, ByRef pErrInfo As PVCI_CAN_STATUS) As Long
'读取CAN设备最后一次错误信息

Answer 1

“用来存储错误信息的VCI_ERR_INFO结构指针”你需要把VCI_ERR_INFO结构体声明转换成vb中自定义数据类声明。下面是百度到的，不知道是不是和你的那个结构体一样。
Public Type VCI_ERR_INFO
    ErrCode As Long
    Passive_ErrData(2) As Byte
    ArLost_ErrData As Byte
End Type