Sets the Position
Syntax:
Sub Move(ByVal NewPosition As Long)
Parameters:
Name Type Description
NewPosition
Long
Remarks:
The Move method moves a color point to a specified position. If there is a color point at the specified position, it is replaced by the moved color point.
Examples:
The following VBA example redistributes color points evenly within the selected fountain fill.
Sub Test()
Dim n As Long, i As Long
If ActiveShape.Fill.Type <> cdrFountainFill Then
  MsgBox "The selected shape must have a fountain fill."
  Exit Sub
End If
n = ActiveShape.Fill.Fountain.Colors.Count
If n > 0 Then
  For i = 1 To n

 ActiveShape.Fill.Fountain.Colors(i).Move i * 100 / (n + 1)
  Next i
End If 
End Sub