API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.CreateContour method
Creates a contour effect
Syntax:
Function CreateContour(Optional ByVal Direction As cdrContourDirection = cdrContourOutside, Optional ByVal Offset As Double = 0, Optional ByVal Steps As Long = 1, Optional ByVal BlendType As cdrFountainFillBlendType = cdrDirectFountainFillBlend, Optional ByVal OutlineColor As Color = Nothing, Optional ByVal FillColor As Color = Nothing, Optional ByVal FillColor2 As Color = Nothing, Optional ByVal SpacingAccel As Long = 0, Optional ByVal ColorAccel As Long = 0, Optional ByVal EndCapType As cdrContourEndCapType = cdrContourSquareCap, Optional ByVal CornerType As cdrContourCornerType = cdrContourCornerMiteredOffsetBevel, Optional ByVal MiterLimit As Double = 0) As Effect
Parameters:
Name Type Description
Direction
Specifies the direction of the contour, and returns cdrContourDirection.
Offset
Double
Specifies the offset distance, in document units, between contour lines, automatically adjusting the number of contour steps.
Steps
Long
Specifies the number of steps, which is linked to the number of lines that appear in the effect.
BlendType
Specifies the color-blend type, and returns cdrFountainFillBlendType.
OutlineColor
Specifies the contour's outline color.
FillColor
Specifies the contour's fill color.
FillColor2
Specifies the EffectContour.FillColorTo color.
SpacingAccel
Long
Specifies the change in step size.
ColorAccel
Long
Specifies the acceleration of the color change.
EndCapType
CornerType
MiterLimit
Double
Remarks:
The CreateContour method applies a contour to a shape, returning an Effect object that represents contour properties.
Examples:
The following VBA example creates a text string and applies a contour effect to it, resulting in blurred look.
Sub Test()
Dim sText As Shape
Set sText = ActiveLayer.CreateArtisticText(4, 5, "Blurred Text")
sText.Fill.UniformColor.RGBAssign 0, 0, 0
With sText.Text.FontProperties
  .Name = "Arial"
  .Size = 90
  .Style = cdrBoldFontStyle
End With
sText.Text.AlignProperties.Alignment = cdrCenterAlignment
sText.CreateContour cdrContourOutside, 0.01, 10, , , CreateRGBColor(255, 255, 255) 
End Sub