> Local lnRow, lnColumn, lcName, loPos > lcName = Sys(2015) > Thisform.AddObject( m.lcName, "Commandbutton" ) > loPos = GetPem( Thisform, m.lcName ) > loPos.Move( Objtoclient(This,2), Objtoclient(This,1), This.Width, This.Height ) > Thisform.ScaleMode = 0 > lnRow = loPos.Top + loPos.Height > lnColumn = loPos.Left > Thisform.ScaleMode = 3 > Thisform.RemoveObject( m.lcName ) >I like your style... this is exactly what I would end doing if I had to sit and think about it. Nice use of default invisibility - usually it's a nuisance that you need to remember to pop an object visible after creating it, but this actually makes it like magic, as if sending the invisible man to measure the room while having guests at dinner. Nobody notices a thing :).