附件不加按钮是可以的,加按钮就不行,咋办?
不要；
For i=0 to 9
.......
Next

Private Sub Form_Load()
    Dim xx As Variant
    For Each xx In Form1.Controls
        If TypeName(xx) = "TextBox" Then            '如果是文本框
            xx.Text = ""                            '那么清空
        End If
    Next
End Sub
这是使用类型来判断,你也可以 使用控件的名字来判断.
        If InStr(1, xx.Name, "Text") = 1 Then
使用名字来判断时,可以清空某个名字前缀的一组控件

收到的鲜花

• HVB6 于 2014-08-30 00:44 送鲜花  3朵   附言：我很赞同

成功！非常感谢版主！