keypress事件 发出 “噔”的声音？
Private Sub PressEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress
Dim sk As Microsoft.VisualBasic.Devices.Keyboard = My.Computer.Keyboard
If e.KeyChar = ChrW(Keys.Enter) Then
sk.SendKeys("{TAB}")
End If
End Sub
每次输入后回车，就会发出“噔”的系统声音，还影响运行速度，不知道为什么。。。

第二个问题：在Btn1上按回车后，焦点还在Btn1上面
如果把TextBox1.Focus()放在Click事件里面，就不能判断e.KeyChar
Private Sub Btn1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Btn1.KeyPress
If e.KeyChar = ChrW(Keys.Enter) Then TextBox1.Focus()
End Sub


[解决办法]
Private Sub PressEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress
Dim sk As Microsoft.VisualBasic.Devices.Keyboard = My.Computer.Keyboard
If e.KeyChar = ChrW(Keys.Enter) Then
sk.SendKeys("{TAB}")
e.Handled = True
End If
End Sub