GefPolylineFormat.SetVertex (method)

Sets the postion of a point on the poly object.
Syntax: Boolean = object.SetVertex ( Index, X, Y )
Index As long -
X As long -
Y As long -
Description: The SetVetext method sets the position of a point on the poly object.


Sub PolylineFormat_SetVertex()
    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.SetVertex oCimPolyFmt.VertexCount - 1, nXCord, nYCord
    End If
    CimGetScreen.Refresh False
End Sub