如何判断子窗体中的字段是隐藏的

todaynew

Sub GetCtrls(frm As Form)
        Dim ctrl As Control
        Dim i As Integer
        Dim m As Integer
        Dim str As String
        Set ctrls = frm.Controls
        m = 0: str = ""
        For Each ctrl In ctrls
           If ctrl.ControlType <> acLabel Then
                m = m + 1
                str = str & "第" & ctrl.TabIndex & "列字段名=" & ctrl.Name & " 是否隐藏=" & ctrl.ColumnHidden & Chr(13) & Chr(10)
           End If
        Next
        MsgBox str
End Sub