对象变量运行时错误'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