Public Sub main()

    Debug.Print ThisApplication.Caption

    Dim activeDoc As PartDocument
    Set activeDoc = ThisApplication.ActiveDocument

    Dim sketches As Sketch
    Set sketches = activeDoc.ComponentDefinition.sketches.Item(1)

    Dim sketchLines As sketchLines
    Set sketchLines = sketches.sketchLines

    Dim transGeom As TransientGeometry
    Set transGeom = ThisApplication.TransientGeometry

    Dim sketchesEnum As SketchEntitiesEnumerator
    Set sketchesEnum = sketchLines.AddAsTwoPointCenteredRectangle(transGeom.CreatePoint2d(0, 0), transGeom.CreatePoint2d(4, 4))


End Sub