API Documentation > CorelDRAW > 2025-v26 > FountainColor > IVGFountainColor
FountainColor.Position property
Gets the Position
Syntax:
Property Get Position() As Long
Remarks:
The Position property returns the position of a color point in a fountain fill. Valid positions range from 1 to 99.
Examples:
The following VBA example deletes any color point with a position located at a distance greater than 50%.
Sub Test()
Dim cl As FountainColor
If ActiveShape.Fill.Type <> cdrFountainFill Then
  MsgBox "The selected shape must have a fountain fill."
  Exit Sub
End If
For Each cl In ActiveShape.Fill.Fountain.Colors
  If cl.Position < 100 And cl.Position > 50 Then cl.Delete
  Next cl

End Sub