Visual Basic - keypress keyup o keydown

buenas, toy haciendo un programa y tengo un problema para hacer un setfocus con un keyup. tengo un par hechos q funcionan (ej: cuando toco 1 en un textbox me pase al siguiente) y quiero hacer uno que cuando toque dos veces 9 (99) me haga el setfocus.

¿¿¿??? Nos dejaste con cara de "What".

NO ENTENDI A QUE TE REFIERES CON TOCAR 1 YO 99 , PERO SI TU PROBLEMA ES PASARTE DE UN OBJETO A OTRO, PUEDES USAR EL {ENTER}PARA HACERLO DE LA SIG. MANERA:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo ChkErr
If KeyCode = 13 Then
If TypeOf Screen.ActiveControl Is TextBox Or _
TypeOf Screen.ActiveControl Is MaskEdBox Or _
TypeOf Screen.ActiveControl Is OptionButton Or _
TypeOf Screen.ActiveControl Is ComboBox Then
SendKeys "{TAB}"
End If
End If
End Sub

ESPERO TE SIRVA, SALUD2

Para Victor, es pregunta, ya que solo para mandar el enfoque de un lado a otro uso el evento keypress y el clasico:

If keyascii=vbkeyreturn then
textbox2.setfocus
endif

Puedes explicarme tu codigo y cual es la diferencia entre el keypress, el keydown y el keyup ?

Gracias.

Esta claro que en este caso keypress es suficiente, pero keydown y keyup permiten identificar las teclas pulsadas en vez de devolver el código ASCII. Esto es util para teclas de función y el estado de ctrl, alt, shift, etc.

Hola,

Usa el Keypress, y cuando tu textbox tenga el valor "99" entonces haces el setfocus.

"quique", por tus respuestas (no solo en este foro) veo que sabes muy poco (o casi nada) de VB, mejor abstente de responder y deja el espacio para los que si saben de lo que escriben.

Vale tio, sigue asi que tus respuestas van a solucionar todos los problemas.

"Usa el Keypress, y cuando tu textbox tenga el valor "99" entonces haces el setfocus"

Se pueden decir mas barbaridades solamente en una frase?

¿Tú eres de los que si saben de lo que escriben, acaso sabes lo que estas escribiendo?

Perdona que me ria jajajaja es que no se reirme de otra manera.

Nota importante: En este mensaje se han suprimido las tildes intencionadamente.

gracias a todos los que me respondieron! pero el mismo dia q hice la pregunta encontre la solucion (If TextX.Text = "99" Then)

Private Sub text32_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
KeyCode = 0
SendKeys "{Tab}"
End If
End Sub
Private Sub text32_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 49 Or KeyCode = 97 Or KeyCode = 50 Or KeyCode = 98 Or KeyCode = 51 Or KeyCode = 99 Or KeyCode = 52 Or KeyCode = 100 Or KeyCode = 53 Or KeyCode = 101 Then
SendKeys "{Tab}"
End If
If Text32.Text = "99" Then
SendKeys "{Tab}"
End If
End Sub