GefObjects.AddEllipse (method)

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

Example:

Sub GefObjects_AddEllipse()
    
    Dim oCimScr As GefScreen
    Dim oCimObj As GefObject
    Dim oCimObjs As GefObjects
    Dim oCimBtnObj As GefObject
    
    Set oCimScr = CimGetScreen
    Set oCimObj = oCimScr.Object
    Set oCimObjs = oCimObj.Objects
    Set oCimBtnObj = oCimObjs.AddEllipse(120 * 20, 120 * 20, 120 * 20, 120 * 20)
    oCimScr.Refresh False
    
End Sub