Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Rem Para que no pite
KeyAscii = 0
Rem Si presiona la tecla "Enter", hace como si hubiese pulsado el tabulador,
Rem y pasa el foco al sgte. control en funcion del Indice.
SendKeys "{tab}"
End If
End Sub