API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.CreatePushPullDistortion method
Creates a push-pull distortion effect
Syntax:
Function CreatePushPullDistortion(ByVal OriginX As Double, ByVal OriginY As Double, ByVal Amplitude As Long) As Effect
Parameters:
Name Type Description
OriginX
Double
OriginY
Double
Amplitude
Long
Remarks:
The CreatePushPullDistortion method applies a Push-and-pull distortion to a shape, returning an Effect object that represents the distortion properties.
Examples:
The following VBA example creates an ellipse in the middle of the page and applies a Push-and-pull distortion to it before converting the shape to a curve.
Sub Test()
Dim s As Shape
ActiveDocument.ResetSettings
Set s = ActiveLayer.CreateEllipse2(ActivePage.SizeWidth / 2, _
  ActivePage.SizeHeight / 2, 2)
s.CreatePushPullDistortion 0, 0, 60
s.ConvertToCurves 
End Sub