如题：如何一次性清除所有文本文件里的内容？

如果单个清除为：Text1.text=""或text1.text=vbnullstring
如果是控件组，且此控件组有5个，可用一个循环：
for a = 0 to 4
text1(a).text=""
next
请教：如何一次性清除非控件组的多个文本框的内容？

Private Sub Command1_Click()
    Dim obj As Object
    For Each obj In Me.Controls
        If TypeOf obj Is TextBox Then
            obj.Text = ""
        End If
    Next
End Sub

楼上或许可行
我没试过

我最多就用

Dim txt
On Error Resume Next
For Each txt In Me
 txt.text=""
Next

二楼明显严谨些。
楼上的代码估计行不通，会引发的错误太多，加条On error resume next 都还会有其它不可预测的错。

偶像好久没见。。。。

不敢不敢。。。。。

每次看你留的言。
给人感觉就是人中之霸。。。。。

繼續請教﹕如果有個文本框﹐我只清除前4個的呢?

如此之厉害?.