GefObject.Group (method)

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.


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