API Documentation > CorelDRAW > 2025-v26 > FountainFill > IVGFountainFill
FountainFill.Colors property
Gets or sets the collection of Fountain Colors
Syntax:
Property Get Colors() As FountainColors
Property Set Colors(ByVal Value As FountainColors)
Remarks:
The Colors property returns the FountainColors collection, which represents all color points of a fountain fill. The element with an index value of 0 represents the starting color point of the fountain fill. The last element (Count+1) is the last color point of the fill.
Examples:
The following VBA example converts all colors of fountain fills in shapes to grayscale.
Sub Test()
Dim s As Shape
Dim ff As FountainFill
Dim i As Long
For Each s In ActivePage.Shapes
  If s.Fill.Type = cdrFountainFill Then

 Set ff = s.Fill.Fountain

 For i = 0 To ff.Colors.Count + 1


ff.Colors(i).Color.ConvertToGray

 Next i
  End If
Next s 
End Sub