GefObjects.AddRectangle (method)

Creates and returns a new object in this container.
Syntax: Set GefObject = object.AddRectangle ( Left, Top, Width, Height )
Parameters:
Optional Left As long -
Optional Top As long -
Optional Width As long -
Optional Height As long -
Description: The AddRectangle method addes a new rectangle to the specified container object.

Example:

Sub GefObjects_AddRectangle()
    
    Dim oCimScr As GefScreen
    Dim oCimObj As GefObject
    Dim oCimObjs As GefObjects
    Dim oCimRectObj As GefObject
    
    Set oCimScr = CimGetScreen
    Set oCimObj = oCimScr.Object
    Set oCimObjs = oCimObj.Objects
    Set oCimRectObj = oCimObjs.AddRectangle(120 * 20, 120 * 20, 220 * 20, 50 * 20)
    
    oCimScr.Refresh False
    
End Sub