Ao Pressionar Enter

[AlexMunhoz]

Gostaria de saber como faço para mudar para um outro campo quando eu pressionar Enter

[Guest - dlumeida -]

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

'Simula o pressionamento da tecla TAB

SendKeys "{tab}"

'A linha a seguir evita ouvir um bip

KeyAscii = 0

End If

End Sub

[AlexMunhoz]

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

'Simula o pressionamento da tecla TAB

SendKeys "{tab}"

'A linha a seguir evita ouvir um bip

KeyAscii = 0

End If

End Sub

vlww mesmo amigão.... muito obrigado.