codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

'Codice da eseguire

End If

End Sub
questo va bene per un TextBox chiamato Text1


:metallica