Visual Basic.NET - e.keychar

Estoy recien en esto de Visual.Net, y en un codigo del cual deberia pasar con enter al otro text para ingresar datos :

If Asc(e.keychar) = 13 Then
Me.txtdir.Focus()
End If

No me funciona el e.keychar, es mas me dice un error
Error 1 'keychar' no es un miembro de 'System.EventArgs'.

he visto ejemplos del uso y al parece esta bien....

alguien que me ayude por favor

Saludos y gracias....

En el evento keypress debe ir el codigo.

Puede usar esta forma tambien: If e.KeyChar = Chr(13) Then

Suerte.

Mira es facil lo que ocurre es que al ubicarte en el textbox y darle doble click para insertar las senticias necesitas primero pararte en:

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
End Sub

y seleccionar keyPress asi:

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

End Sub

Amigo dale de esta forma...
Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = ChrW(Keys.Enter) Then
e.Handled = True
SendKeys.Send("{Tab}")
If e.KeyChar = Convert.ToChar(Keys.Return) Then
e.Handled = True
End If
End If
End Sub

poes yo te tengo de esta forma y si funciona

If Asc(e.KeyChar) = 13 Then
If Integer.Parse(MaskedTextBox1.Text) = RES Then
ACTIVAR = True
Label2.Visible = ACTIVAR
Label19.Visible = ACTIVAR
Label29.Visible = ACTIVAR
Label39.Visible = ACTIVAR
MaskedTextBox2.Visible = ACTIVAR
MaskedTextBox2.Enabled = True
MaskedTextBox2.Text = ""
PUNTOS = PUNTOS + 5
Label44.Text = PUNTOS.ToString()
MsgBox("MUY VIEN CONTESTATO PASEMOS CON LA SIGUIENTE Y APARTE TE GANASTE + 5 PUNTOS")
MaskedTextBox1.Enabled = False
Else
' MaskedTextBox1.Text = ""
MaskedTextBox1.Text = ""
PUNTOS = PUNTOS - 3
MsgBox("LO SENTIMOS HAS FALLADO POR LO TANTO TE QUITAREMOS - 3 PUNTOS")
CONTADORDEERRORES = CONTADORDEERRORES + 1
Label47.Text = CONTADORDEERRORES.ToString()
Label44.Text = PUNTOS.ToString()
End If
End If