>Thanks Gregory...
You're welcome.
LPARAMETERS ncolindex
=DoDefault(ncolindex)
local ac
ac = thisform.GetACtiveControl()
do case
case isnull(ac)
otherwise
acti screen
?sys(1272, ac)
local x, y, w, h
y = objtoclient(ac, 1)
x = objtoclient(ac, 2)
w = ac.Width
h = ac.Height
do case
case type('thisform.ShapeObj') = T_UNDEFINED
=thisform.AddObject('ShapeObj', 'Shape')
thisform.ShapeObj.BackColor = rgb(255,0,0)
thisform.ShapeObj.Visible = TRUE
endcase
thisform.ShapeObj.Left = x
thisform.ShapeObj.Top = y
thisform.ShapeObj.Width = w
thisform.ShapeObj.height = h
endcase
Gregory
