主题：点击当前窗口清空文本框代码

afterLoad

e.Form.TimerInterval = 50
e.Form.TimerEnabled = True

timertick

static flag As Boolean = True
If Forms.ActiveForm IsNot Nothing AndAlso Forms.ActiveForm.name = e.Form.name Then
    If flag = True Then
        e.Form.controls("textbox1").text = Nothing
        e.Form.controls("textbox1").Select
        flag = False
    End If
Else
    flag = True
End If