GefObjects.AddGroup (method)

Adds a new empty group.

Syntax:

Set GefObject = object.AddGroup ( )

Description:

The AddGroup method adds a new empty group to the specified container object.

Example:

Sub GefObjects_AddGroup()

    Dim oCimScr As GefScreen
    Dim oCimObj As GefObject
    Dim oCimObjs As GefObjects

    Dim oCimGrpObj As
GefObject

    Dim oCimRectObj As
GefObject

    Dim oCimBtnObj As
GefObject

Set oCimScr = CimGetScreen

    Set oCimObj =
oCimScr.Object

    Set oCimObjs =
oCimObj.Objects

    Set oCimGrpObj =
oCimObjs.AddGroup

    Set oCimRectObj =
oCimGrpObj.Objects.AddRectangle(120 * 20, 120 * 20, 220 * 20, 50 *
20)

    Set oCimBtnObj =
oCimGrpObj.Objects.AddButton(120 * 20, 70 * 20, 120 * 20, 50 * 20,
"New Button")

oCimScr.Refresh False

End Sub