how to specify an angle on an outside corner

Hi,

Maybe this will help.

Not sure if it will work on cdr11 cause I made with x4.

Sub CreateMeARectangle()
    Dim rect As Shape
    Dim w#, h#
    Dim cornerR#
    Dim min#
   
   
    w = InputBox("Enter width of rectangle")
    h = InputBox("Enter height of rectangle")
    If w < h Then
        min = w / 2
    Else
        min = h / 2
    End If
    cornerR = InputBox("Now enter your corner radius size for the corners, Please enter a value between 0 and " & min)
   
    If w > 0 And h > 0 Then
        ActiveLayer.CreateRectangle2 0, 0, w, h, cornerR, cornerR, cornerR, cornerR
    End If
End Sub

-John