' Pasar de un TextBox a otro al pulsar Enter

' Inserte tres TextBox y escriba el siguiente código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
     If KeyAscii = 13 Then
        SendKeys "{tab}"
        KeyAscii = 0
    End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
     If KeyAscii = 13 Then
        SendKeys "{tab}"
        KeyAscii = 0
    End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
     If KeyAscii = 13 Then
        SendKeys "{tab}"
        KeyAscii = 0
    End If
End Sub

' ////////////////////////////////////////
'                otra forma
' ////////////////////////////////////////
' Pasar de un TextBox a otro al pulsar Enter (II Parte):

' Inserte tres TextBox, cambie la propiedad KeyPreview del formulario a True y escriba el siguiente código:

Private Sub Form_KeyPress(KeyAscii As Integer)
      If KeyAscii = 13 Then
         SendKeys "{tab}"
         KeyAscii = 0
     End If
 End Sub