处理窗体TEXTBOX清空

我们在程序中， 经常要对界面上的TEXT进行初始化操作，有方法是列举出所有的text，然后一个个清空，这样操作太麻烦。下面提供一个简单的方法

Private Sub Form_Load()
Dim Obj As Object
For Each Obj In Me
    If TypeName(Obj) = "TextBox" Then           ’ "TextBox" 替换这个名字，可以处理其他控件
        Obj.Text = ""
    End If
Next
End Sub