[VB.NET] Button attivo su invio

[mgmg]

Se in VB6:
Private Sub Command1_KeyPress(KeyAscii As Integer)
'Invio
If (KeyAscii) = 13 Then

.....eseguo codice/richiamo sub

End If
End Sub

Ciao