Public Class Form1
Private Sub TextBoxs_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown, TextBox4.KeyDown
If e.KeyCode = Keys.Enter Then
Dim txtBox As TextBox = CType(sender, TextBox)
Me.SelectNextControl(txtBox, True, True, True, True)
e.SuppressKeyPress = True
End If
End Sub
Private Sub TextBoxs_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress, TextBox4.KeyPress
If e.KeyChar = Chr(13) Then
Dim txtBox As TextBox = CType(sender, TextBox)
Me.SelectNextControl(txtBox, True, True, True, True)
End If
End Sub
End Class