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

解决方案 »

  1.   

    cTr.Enabled
    不是
    cTr.enable
      

  2.   

    写错了，应是
    cTr.enabled = bShow
      

  3.   

    一样报错，好像缺少一个什么引用
    代码没问题
    是vb教程里的代码，我的vb设置有问题？
      

  4.   

    正常情况下我输入 ctr. 时会出现提示,选enable就可以了，可这里没有
    强行输入ctr.enable 后回车,就变成
    cTr.enable而不是cTr.Enable
    运行还报错，说明机器不认识这个控件变量