怎么改！

[shashadog]

一个窗体上面放了三个文本框,Index 分别是0.1.2,现在要编一段过程
Private Sub ClrTxt(Txt() As TextBox)
For Each TextBox In Txt()
TextBox=""
Next
End Sub
到时候 Call ClrTxt(Text1()) ，出错，怎么改！

[zyl910]

VB对控件的管理很不完善
只能定义为Object

Private Sub ClrTxt(Txt As Object)

[happybeyond]

不用数组不好吗 ？
For Each TextBox In Form1
TextBox.Text = ""
Next

[Jameszht]

Private Sub Form_click()
ClrTxt Text1
End Sub

Private Sub ClrTxt(ByVal txt As Object)
For i = 0 To txt.ubound
txt(i).Text = ""
Next
End Sub