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

此主题相关图片如下：image 2.jpg

在“独立窗口”窗口中的

Click事件中如下代码不起左右

If Forms("独立窗口").opened() AndAlso Forms.ActiveForm IsNot Nothing AndAlso Forms.ActiveForm.Name = "独立窗口"
    e.Form.Controls("TextBox3").text=Nothing
    e.Form.Controls("TextBox3").Select
End If