Prova così:
nella routine dell'evento keypress

If KeyAscii = 13 Then KeyAScii = 0

Ciao!