Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
10年积累的成都网站设计、成都做网站经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站策划后付款的网站建设流程，更有上犹免费网站建设让你可以放心的选择与我们合作。
If Asc(0) Then
textbox1.text="0"
end if
end sub
如果是usb扫描枪，是焦点在哪它就输入在哪，不能自动对应到相应的文本框
如果是串口扫描枪可以实现你的功能，在代码里判断相应的串口对应文本框
（1）在Form1上布置一个Label，用来显示键盘码
（2）窗体代码如下
Imports System.Windows.Forms
Imports System.IO
Imports System.Net
Imports System.Windows.Forms
Imports System.IO
Imports System.Net
Public Class Form1
Private Sub Form1_Load(sender As Object,
e As EventArgs) Handles MyBase.Load
KeyPreview = True
End Sub
Private Sub Form1_KeyDown(sender As Object,
e As KeyEventArgs) Handles MyBase.KeyDown
Label1.Text = e.KeyValue
End Sub
End Class
按键盘上的键，Label1将显示对应键的键盘码