private sub text1_keypress(keyascii as integer) if keyascii = 13 then keyascii = 0: text2.setfocus end sub