*- Return value of Toolbar object PARAMETER oObject LOCAL oToolObj oToolObj = "oApp.oToolBar." + oobject + ".enabled" IF TYPE(oToolObj) # "L" RETURN .F. ELSE RETURN EVAL(oToolObj) ENDIF