如何用代码同时修改相同控件的相同属性？

Question

例如窗体上有各种控件，我需要把所有文本框的text属性都赋值"1"，要怎么做?

Answer 1

Private Sub Command1_Click()
Dim tempCon As Control
For Each tempCon In Me.Controls
    If TypeName(tempCon) = "TextBox" Then
        tempCon.Text = "1"
    End If
Next
End Sub

Answer 2

dim ctrl as controlfor each ctrl in contorls
  if typeof ctrl is textbox then
    ctrl.text=1
  end if
next