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 )