| Creates a new group consisting of the object. | |
| Syntax: | Set GefObject = object.Group ( ) |
| Description: | A group object is created in the container which
holds the object. Then the object is moved from the container into
the new group. Example: Sub GefObject_Group() Dim oCimObj As GefObject Dim oCimObjGrp As
GefObject Dim oCimObjRect As
GefObject Set oCimObj = CimGetObject Set oCimObjGrp =
oCimObj.Group Set oCimObjRect =
oCimObjGrp.Objects.AddRectangle(1 * 20, _ 50 * 20, 50 *
20, 1029) CimGetScreen.Refresh False End Sub |