如何批量设置txt的属性？

我有一组txt，如下设置其属性
  Dim oText As TextBox
  For Each oText In Me.txtFields
    oText.Enabled = False
  Next
这样一个个来速度比较慢，有没有快速的方法？