Caros Colegas,

 

    Estamos desenvolvendo uma aplicação no pocket vb no qual eu presciso em uma determinada caixa de texto criar um timer, ao pressionar um caractere qualquer, o usuário terá apenas 1 segundo (ou menos) para pressionar o seguinte, caso contrário todos os caracteres digitados serão apagados.

 

Brigadão desde já!

Não sei como é esse Pocket VB, mas no VB6 eu faria assim:

 

Option Explicit
   Dim strTexto As String

Private Sub Text1_KeyPress(KeyAscii As Integer)
   Timer1.Enabled = False
   strTexto = Text1 & Chr(KeyAscii)
   Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
   If Text1 = strTexto Then
      Text1 = ""
      strTexto = ""
   End If
   Timer1.Enabled = False
End Sub