API Documentation > CorelDRAW > 2025-v26 > Transparency > IVGTransparency
Transparency.Fountain property
Gets or sets the fountain fill properties of the transparency
Syntax:
Property Get Fountain() As FountainFill
Property Set Fountain(ByVal Value As FountainFill)
Remarks:
The Fountain property returns a fountain fill (or FountainFill object) representing the settings for a fountain-fill transparency.
Examples:
The following VBA example sets the direction angle of all fountain-fill transparencies to 45°.
Sub Test()
Dim s As Shape
For Each s In ActivePage.Shapes
  If s.Transparency.Type = cdrFountainTransparency Then

 s.Transparency.Fountain.SetAngle 45
  End If
Next s 
End Sub