对象变量运行时异常'438'：对象不支持该属性或方法

对象变量运行时错误'438'：对象不支持该属性或方法
哪位高人帮我看看,下边这个子过程,调用时红字的那行就报错“运行时错误'438'：对象不支持该属性或方法”
可能是缺什么引用? 还是？

Private Sub Status(bShow As Boolean)
  Dim cTr As Control
  For Each cTr In Me.Controls
  If TypeName(cTr) = "TextBox" Then
  cTr.enable = bShow
  End If
  Next
End Sub



[解决办法]
cTr.Enabled
不是
cTr.enable
[解决办法]
写错了，应是
cTr.enabled = bShow