Visual Basic - Problema en evento KeyPress

Lo que quiero es, que estando posicionado en un RTB, al pulsar la tecla "ENTER", esta tenga la misma función que el CmdEnviar.

Para ello, en el evento KeyPress pongo esto...

IF KeyASCII = 13 And Len(RichTextBox1.Text) > 0 Then
Command1_Click
End IF

Todo bien, pero hay un problema, y es que al presionar la tecla "ENTER", no para de enviar "Enters", y la unica que queda es cerrar la aplicación.

¿Alguien sabe porqué puede ser? ¿Me faltó poner algo?

Salu2

if keyascii = 13 then ' 13 es el enter
keyascii=0
sendkeys" {tab{" ' arregla el parentesis t te sirve para el tab
end if
******************************************************
otro mas' tee sirbe para letras
******************************************************
Private Sub Txt_nom_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 And Txt_nom <> "" Then
Txt_dir.SetFocus
End If
End Sub

ojala te sirba

Espero que esto te sirva. Es muy sencillo pero facil:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
'Aquí pones el código del cmdEnviar
End if
End Sub
--------------------------------------

Private Sub Text1_KeyPress (KeyAscii As Integer)
If KeyAscii = 13 Then
'Aquí pones el código del cmdEnviar
End If
End Sub

Espero que esto te sirva, saludos.

Muchas gracias a los dos, ya vere de probarlo.

Otra vez gracias a los dos.

Salu2