Ver Mensaje Individual
  #2 (permalink)  
Antiguo 21/02/2005, 14:05
Avatar de vbx3m
vbx3m
 
Fecha de Ingreso: febrero-2005
Ubicación: Venezuela
Mensajes: 524
Antigüedad: 19 años, 3 meses
Puntos: 1
Enter

Puedes hacerlo de varias maneras:

1)Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text?.Setfocus

'Te sirve cuando vas a pasar de Text sin ningun orden

2)Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys "(Tab)", True

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

'Este es el que mas uso ya que pasa de text en orden, para usarlo debe estar la propiedad KeyPreview del formulario en True... Usa la que mas te sirva...