Grady,
>I apologize for coming back to this issue, but I am stumped and need your help, so I thought I would restate the problem.
It's really hard to follow what's going on when you keep restarting threads over and over.
> Thisform.AddObject( Sys(2015), "shape")
> With Thisform.Controls[thisform.ControlCount]
Make sure you read the warning I posted about this code construct yesterday.