[求助]遍历窗体上的组合框

阿丰

在窗体上放置了多个组合框，如何快速地把名称不是“组合框1”的其它组合框的内容清除并设成不可用状态？

zyz

Private Sub Form_Load()
    Dim ctl As Control
   
    For Each ctl In Me.Controls
        If TypeOf ctl Is ComboBox Then
            If ctl.Name <> "组合框1" Then
                ctl.Value = ""
                ctl.Enabled = False
            End If
        End If
    Next
End Sub

bloom

为什么我用这段代码会出错？
不支持该属性或方法：ctl.Enabled = False