VB高手请进，关于USB问题，~~急！！！！

我做了一个VB小程序，是用来测试USB口传输数据的，这需要调用API函数，可是我加载了API后却没有我要的函数丫，请高手帮助我！！

程序如下：


\'newdll
\'Opendevice:开始与HID设备通信
\'Writedevice：传送数据到HID设备
\'Readdevice：从HID设备接收数据
\'Closedevice：结束与HID设备通信

Public hid As New newdll
Const MyVendorID = &H1234
Const MyProductID = &H5678
Dim Timeout As Boolean
Private Sub Command1_Click()
Dim hiddevice As Boolean
Dim send(7) As Byte
Dim recevice() As String
hiddevice = hid.opendevice(MyVendorID, MyProductID)
Text1.Text = hiddevice
If hiddevice = True Then
send(0) = Val(\"&H\" + Text2.Text)
send(1) = Val(\"&H\" + Text4.Text)
hid.Writedevice send()
Timeout = False
Timer1.Enabled = True
Timer1.Interval = 50
Do
DoEvents
Loop Until Timeout = True
recevice() = hid.Readdevice
Text3.Text = recevice(0)
End If
hid.closedevice
End Sub

Private Sub text2_KeyPress(KeyAscii As Integer)
If (Chr$(KeyAscii) Like \"[!A-Fa-f0-9]\") Then KeyAscii = 0
End Sub
Private Sub timer1_Timer()
Timerout=True
Timer1.Enabled=False
End Sub



请大家帮忙，我怎样才可以将程序运行？

这里有高手吗

首先声明小弟不是高手。
记得以前接触过VB与USB相关的书籍，讲到VB如何通过API与USB的驱动程序相连接。请您注意增加使用以下API函数：CreatFile()、DeviceIoCommand()、ReadFile()、WriteFile()、CloseHandle()。希望能对您有帮助。
祝您成功！

我不是高手。

我的建议是：usb大全里提供的例程和说明都是基于vb的。
            你可以去看。
            如果没有，你可以到下载中心，那里有电子光盘。里面有例子。祝你好运。

另外，我也很喜欢cranberry的歌，尤其那首
dieing in the sun