Creating Triangle

Hello,
Your code work well for corelDRAW X5 and above
Please change code to work for corelDRAW X3. 
CenterX, CenterY properties must be replaced with some with same functionality (LeftX, RightX, TopY, BottomY, width/2, hight/2......)
Greetings!

Maybe this works. I cant check. Dont have X3.

Have used User Click to specify where to draw the triangle.

Sub TriangleSSS()
Dim x1#, y1#, x2#, y2#
Dim b As Boolean
Dim mShift&                'Required for GetUserClick

Dim s As Shape ' Base
Dim c1 As Shape, c2 As Shape ' Arcs
Dim cps As CrossPoints
Dim sp As SubPath
Dim l1#, l2#, l3# 'lengths

l1 = 3
l2 = 5
l3 = 6


b = ActiveDocument.GetUserClick(x1, y1, mShift, 10, True, cdrCursorWinCross)

If Not b Then
    x2 = x1 + l1
    y2 = y1
    
    Set c1 = ActiveLayer.CreateEllipse2(x1, y1, l2, l2, 180, 360)
    Set c2 = ActiveLayer.CreateEllipse2(x2, y2, l3, l3, 180, 360)
    
    
    Set cps = c1.DisplayCurve.SubPaths(1).GetIntersections(c2.DisplayCurve.SubPaths(1))
    c1.Delete
    c2.Delete
    If cps.Count > 0 Then
        Set s = ActiveLayer.CreateLineSegment(x1, y2, x2, y2) ' Triangle Base
        Set sp = s.Curve.SubPaths(1)
        sp.AppendLineSegment cps(1).PositionX, cps(1).PositionY, False
        sp.AppendLineSegment cps(1).PositionX, cps(1).PositionY, True
        s.Curve.Closed = True
    Else
        MsgBox "Sides will not intersect"
    End If
End If

End Sub