API Documentation > CorelDRAW > 2025-v26 > Transparency > IVGTransparency
Transparency.ApplyFountainTransparency method
Applies a fountain fill transparency to the object
Syntax:
Function ApplyFountainTransparency(Optional ByVal Start As Long = 0, Optional ByVal End As Long = 100, Optional ByVal Type As cdrFountainFillType = cdrLinearFountainFill, Optional ByVal Angle As Double = 0, Optional ByVal Steps As Long = 0, Optional ByVal EdgePad As Long = 0, Optional ByVal MidPoint As Long = 50, Optional ByVal CenterOffsetX As Double = 0, Optional ByVal CenterOffsetY As Double = 0) As FountainFill
Parameters:
Name Type Description
Start
Long
Specifies a percentage value indicating the level of transparency in the beginning of the fountain transparency. Higher values indicate a greater degree of transparency.
End
Long
Specifies a percentage value indicating the level of transparency in the end of the fountain transparency. Higher values indicate a greater degree of transparency.
Type
Specifies, through a value of cdrFountainFillType, the type of fountain fill in the transparency.
Angle
Double
Specifies the degree of the slant in linear, conical, or square fountain-fill transparencies. Positive values rotate the fill counterclockwise; negative values rotate it clockwise.
Steps
Long
Specifies the number of bands (steps) used to display the fountain fill.
EdgePad
Long
Specifies the length of solid colors at the beginning and end of the fountain transparency before they start blending with the next color in the fountain fill. You can change the edge pad of linear, radial, and square fountain fills.
MidPoint
Long
Specifies the position of the mid-point, the point at which two colors in the fountain fill converge.
CenterOffsetX
Double
Specifies the horizontal offset from the center.
CenterOffsetY
Double
Specifies the vertical offset from the center.
Remarks:
The ApplyFountainTransparency method applies a fountain-fill transparency to a shape.
Examples:
The following VBA example applies a radial fountain-fill transparency to each shape that has a fill.
Sub Test()
Dim s As Shape
For Each s In ActivePage.Shapes
  If s.Fill.Type <> cdrNoFill Then

 s.Transparency.ApplyFountainTransparency 0, 90, cdrRadialFountainFill
  End If
Next s 
End Sub