程序代码

Dim aaa As Collection

Private Sub Command1_Click()

   Dim item As Control

   For Each item In aaa

       item.Text = "microsoft"   '对集合中所有TextBox的Text属性赋值

   Next item

End Sub

Private Sub Command2_Click()

   Unload Me

End Sub

Private Sub Form_Load()

   Set aaa = New Collection

   Dim tex As Control

   For Each tex In Me.Controls

       If TypeName(tex) = "TextBox" Then      '判断是否为TextBox

           aaa.Add tex, tex.Name                       '添加到集合

       End If

   Next tex

End Sub