".Text = "Private Sub Command1_Click()
Dim conTxt As Object
For Each conTxt In Form1
If TypeOf conTxt Is TextBox Then
conTxt;
End If
Next
End Sub
把里面的东西写成一个函数 用的时候调用一下就可以了
做成数组控件
for i =0 to 3
text(i).text=""
next i