Tienes varias soluciones al problema que planteas.
La primera solución que veo, si es que todos los TextBox
hacen la misma acción, es hacer un evento KeyPress
que este asociado a todos los TextBox
de tu formulario.
Private Sub Evento_KeyPress(sender As Object, e As KeyPressEventArgs) _
Handles TextBox1.KeyPress, TextBox2.KeyPress 'Añades todos los TextBox que quieras
If e.KeyChar = ChrW(Keys.Enter) Then
e.Handled = True
SendKeys.Send("{TAB}")
End If
End Sub
En el caso de que no tengas que hacer lo mismo en todos los TextBox
, deberías crear una función o procedimiento que ejecutas en esos eventos, por ejemplo:
Private Sub Evento_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
Func_KeyPress(e) 'Llamamos la función que hemos creado abajo
End Sub
Private Sub Func_KeyPress(e As KeyPressEventArgs)
If e.KeyChar = ChrW(Keys.Enter) Then
e.Handled = True
SendKeys.Send("{TAB}")
End If
End Sub