主题：窗口弹出当前选中

1、afterLoad事件

e.form.text = e.form.name
e.form.TimerInterval = 500
e.Form.TimerEnabled = True

2、timertick事件，写代码

If ShowAppWindow(e.Form.text,1) Then
    e.Form.controls("textbox1").Select
    e.Form.TimerEnabled = False
End If