public const vk_tab = &h9
public declare sub keybd_event lib \"user32\" (byval bvk as byte, byval bscan as byte, byval dwflags as long, byval dwextrainfo as long)

private sub text1_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
keyascii = 0
keybd_event vk_tab, 0, 0, 0
end if
end sub

如果本文没有解决您的问题，请进老妖怪开发者社区提问