vb怎么声明vc dll函数

Question

我要调用一个打印机的dll,但它是用vc写的，
请问用vb6怎么声明
1、 HANDLE   OpenUsb( );  //打开USB设备
功能说明：
调用该函数将会打开极速电子科技公司生产的各系列USB打印设备，成功将返回打开的USB设备句柄，失败则返回无效句柄(INVALID_HANDLE_VALUE)。.2、 BOOL  WriteUsb(HANDLE hUsb, //已打开的USB设备句柄
char *SendBuf,  //指向发送缓冲区的地址
DWORD WriteSize, //要写入设备的字节数
LPDWORD lBytesWritten);//指向已写入
节数的地址，用于保存写入的字节数不能为NULL。功能说明：
调用该函数将会向打开的USB设备写入数据，成功将返回1，失败则返回0。3、BOOL   ReadUsb(HANDLE  hUsb,  //已打开的USB设备句柄
      char  *ReadBuf,  //保存读取数据的一个缓冲区          DWORD  NumberBytesToRead, //要读入的缓冲区大小           LPDWORD  lpNumberOfBytesRead); //指向实际读取字节数的指针
功能说明：
调用该函数将会读取USB设备发送过来的数据，成功将返回1，失败则返回0。4、void   CloseUsb(HANDLE hUsb); //打开的USB设备句柄
功能说明：
调用该函数将会关闭已打开的USB设备。我只会写第一个函数，还不知道对不对。
Public Declare Function OpenUsb Lib "JsDll.dll" () as long
后面三个都不会写。
请高手帮忙写一下

Answer 1

Public Declare Function WriteUsb Lib "JsDll.dll" (ByVal hUsb As Long, SendBuf As Any, ByVal WriteSize As Long, lBytesWritten As Long) As LongPublic Declare Function ReadUsb Lib "JsDll.dll" (ByVal hUsb As Long, ByVal NumberBytesToRead As Long, lpNumberOfBytesRead As Long) As LongPublic Declare Sub CloseUsb Lib "JsDll.dll" (ByVal hUsb As Long)

Answer 2

Public Declare Function OpenUsb Lib "JsDll.dll" () As Long 这个声明正确!