RE: looping through control

Something like this?

      perform varying ctrl as type Control thru self::Controls
           if ctrl::GetType = type of TextBox
|                set ctrl as type TextBox::ReadOnly to false
           end-if
      end-perform.