一个窗体中有多个textbox，怎样一次性清空它们？谢谢！

text1.text=""
text2.text=""
数组的话就用：
 Dim txt As Control
    For Each txt In Me.Controls
      If TypeOf txt Is TextBox Then
       txt.Text = ""
      End If
    Next txt

看不懂

谢谢指教

TEXT控件多的时候最好用控件数组.便于初始化. LZ的问题用的如果是数组就一个FOR NEXT可以解决了.

Dim ctl  As Control                      '定义控件对象变量
For Each ctl In Controls                 '枚举所有包含的控件
If TypeOf ctl Is TextBox Then ctl = ""   '将所有textbox控件赋值为空  
Next

控件数组 一个循环全部搞定
不过我LS的方法更好些