vb 如何读取usb 发出的键盘值

目前需要用VB做一个东西，读取一个USB设备发送出来的标准键盘格式的值。USB设备自动驱动为键盘，但是发送出来的数据是大于标准键盘上的键值的，即标准键盘以外的值。需要把这个键值打印在Frame1 控件中。有会的请帮忙下，谢谢。

加个Textbox（文本框）， 如果它得到焦点后，和标准键盘一样按USB键盘的键后就会触发keyPress，keyUp，keyDown，这样你就得到了keyAscii
在textbox中是你输入的键， 在Frame1 上显示的是最后输入的键的Ascii值
（下列程序是测试过的）
Private Sub Text1_KeyPress(KeyAscii As Integer)
Frame1.Caption = Str(KeyAscii)
End Sub

usb口？ 通常 是 com口 可以 用 serialport 控件