you could try:
VB Code:
  1. Private Sub command1_keypress(Keyascii as integer)
  2. if keyascii = 30 then ' i think its 30
  3. then keyascii = 0
  4. end sub