I want to do AddObject in the Init of a class to add a shape for each instance during runtime:

Init Code

Local cCurrentScrollBlocker

cCurrentScrollBlocker = 'shp_' + This.Name
This.Parent.AddObject(cCurrentScrollBlocker,'Shape')

A portion of the object is derived from the current name of the class and I'm referencing using macro substitution like:

Refresh Code

Local cCurrentScrollBlocker, oRef

cCurrentScrollBlocker = 'shp_' + This.Name
oRef = 'This.Parent." + This.Name
&oRef..This.Visible = .T.

During runtime, the last line in the Refresh is causing an error. It says basically that the object for oRef does not exist. Any ideas? Thanks!

Regards, Renoir