nControls = ASelObj(aObjects)
If nControls = 0
   nControls = ASelObj(aObjects, 1)
EndIf   
oObject = aObjects(1)
If oObject.Class = "_sbrstatusbar"
   Set Classlib To (oObject.ClassLibrary)
   oPageProperty = Createobject("_pgeProperty", oObject)
   oPageProperty.Show()
EndIf