code is as follows

FOR i = 1 to ThisForm.lstSelected.ListCount
SEEK ThisForm.lstSelected.List(i)
lc_classname = ALLTRIM(rmgrobj.filename)
SET CLASSLIB TO (g_cWorkDir + lc_classname) ADDITIVE
bc.AddObject(lc_classname, lc_classname)

DO ObjBrowser WITH lc_ClassName && or another way I tried
DO ObjBrowser WITH bc.controls(i) && bc is the container


ENDFOR
That last line of code does not run because the object browser is looking for an object...and it says the para is no object.
as in

start up code from ObjBrowser.prg
LPARAMETER toObject
oObjInspect = CREATE("Objectinspectorform",toObject)
oObjInspect.Show()

Thanks