VB中查找控件的方法

For Each control In Me.Controls
   If TypeOf control Is TextBox Then
     If control.Name = "Text1" Then
        control.Text = ""
     End If
   End If
Next control