API Documentation > CorelDRAW > 2025-v26 > Effect > IVGEffect
Effect.Distortion property
Gets the distortion effect for the object
Syntax:
Property Get Distortion() As EffectDistortion
Remarks:
The Distortion property returns the EffectDistortion object for the distortion effect.
Examples:
The following VBA example changes properties of the distortion effect for the active shape.
Sub Test()
Dim e As Effect
For Each e In ActiveShape.Effects
  If e.Type = cdrDistortion Then

 Select Case e.Distortion.Type


Case cdrDistortionZipper


  e.Distortion.Zipper.Amplitude = 50


Case cdrDistortionTwister


  e.Distortion.Twister.Angle = 120


Case cdrDistortionPushPull


  e.Distortion.PushPull.Amplitude = 70

 End Select
  End If
Next e 
End Sub