[عبدالله الصافي]

جرب ذلك الكود. بالتوفيق.

كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox "hhhh"
End If
End Sub