如何利用 VB5.0來讀取USB鍵盤傳送來的碼(編號:2463)

不知道目前VB5.0 or VB6.0 是否有支援USB的物件或API,
如果有是否能提供範例,謝謝!!