请问如何实现两个editmask控件自动转移焦点的功能

[hightolow]

有两个editmask控件 editmak1 editmask2,type=date
要实现这样的功能：
在editmask1里输入日期，yyyy-mm-dd，输入八位后，焦点自动转移到editmask2,而不是通过tab来转移
其他语言里有textchanged事件，可以捕获每次敲击键盘的事件，然后再判断长度
if len(editmask1.text)=10 then
editmask2.setfocus()
end if

但我在pb里没找到类似textchanged事件

[luotitan]

modified

[hightolow]

modified是在输入有变化，而且还要敲回车键才触发啊
我现在是要实现自动转移功能，不需要敲回车或tab

[kirao]

在第一個自定一個事件
event id 為pbm_keydown
code:
If Key = KeyEnter! Then 第二個.Setfocus()

[hygougou]

自定义事件

pbm_keyup

然后在这个事件写代码