GefPolylineFormat.AddVertex (method)

Adds a new point on the poly object.

Syntax:

long = object.AddVertex ( X, Y )

Parameters:

X As long -

Y As long -

Description:

The AddVertex method adds a new point to the poly object.

Example:

Sub PolylineFormat_AddVertex()

Dim oCimObj As GefObject

    Dim oCimPolyFmt As
GefPolylineFormat

    Dim nXCord As Long
    Dim nYCord As Long

    nXCord = 20 * 20
    nYCord = 40 * 20
    Set oCimObj = CimGetObject

    Set oCimPolyFmt =
oCimObj.PolylineFormat

    If Not oCimPolyFmt Is Nothing
Then

        oCimPolyFmt.AddVertex
nXCord, nYCord

    End If
    CimGetScreen.Refresh False

End Sub