主题：扩展列窗口尺寸宽怎么设置

列窗口的尺寸？代码是没问题的。

For Each a As OBJECT In Tables("表A").grid.parent.controls
    For Each b As OBJECT In a.controls
        msgbox(b.text)
        If b.text = "第十列" Then
            b.width = 500
        End If
    Next
Next