>local laObjects(1), loObject, lcType > >Amouseobj(laObjects) > >loObject = laObjects[1] > >if Type('loObject.Parent') = 'O' > loObject = loObject.Parent >endif > >if Type([loObject.Class]) = [C] and loObject.Class = 'Column' > do case > case loObject.ColumnOrder = 2 > case loObject.ColumnOrder = 4 > otherwise > endcase >endif >