I need to find the position of all nodes in an object

I've selected a curve called pcurve
I need to find the x y position of all nodes in pcurve.
pcurve has only 4 nodes.

I can't figure out how to call each node and get PositionX or Y

the first nodes x I will call x1 and the y I will call y1
the second nodes I will call x2 and the y I will call y2
and so on.

Any ideas?

Thank you very much for saving my sanity.

[shelbym]

Here is a little help for you:

Sub GetMyNodePosition()
    Dim s As Shape, n As Node
    Dim x As Double, y As Double
    Dim x1 As Double, y1 As Double
    Dim x2 As Double, y2 As Double
    Dim x3 As Double, y3 As Double
    Dim x4 As Double, y4 As Double
    
    Set s = ActiveShape
    
    If s.Type = cdrCurveShape Then
        For Each n In s.Curve.Nodes
            n.GetPosition x, y
            MsgBox "x: " & x & " y: " & y
        Next n
        
        'or like this
        s.Curve.Nodes(1).GetPosition x1, y1
        s.Curve.Nodes(2).GetPosition x2, y2
        s.Curve.Nodes(3).GetPosition x3, y3
        s.Curve.Nodes(4).GetPosition x4, y4
        
        MsgBox "x1: " & x1 & " y1: " & y1
    End If
End Sub

Best of luck,

-Shelby

Thanks! That is perfect.