GefObjects.AddLine (method)

Creates and returns a new object in this container.

Syntax:

Set GefObject = object.AddLine ( BeginX, BeginY, EndX, EndY )

Parameters:

BeginX As long -

BeginY As long -

EndX As long -

EndY As long -

Description:

The Line method creates a line object in the specified container.

Example:

Sub GefObjects_Line()

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

    Dim oCimLineObj As
GefObject

Set oCimScr = CimGetScreen

    Set oCimObj =
oCimScr.Object

    Set oCimObjs =
oCimObj.Objects

    Set oCimLineObj =
oCimObjs.AddLine(120 * 20, 120 * 20, 220 * 20, 220 * 20)

oCimScr.Refresh False

End Sub