The following VBA example creates an ellipse and a rectangle, and applies a contour effect to each shape. It then applies a perspective to the contour group.
Sub Test()
Dim s As Shape, s2 As Shape
Dim e As Effect
Set s = ActiveLayer.CreateEllipse2(5, 4, 2)
s.Fill.UniformColor.RGBAssign 255, 0, 0
Set s2 = ActiveLayer.CreateRectangle(3, 3, 5, 5)
s2.Fill.UniformColor.RGBAssign 0, 0, 255
For Each s In ActiveLayer.Shapes.All
Set e = s.CreateContour(cdrContourInside, , 5)
e.Contour.ContourGroup.CreatePerspective 2, 2
Next s
End Sub