Gets or sets the end value of the transparency
Syntax:
Property Get End() As Long
Property Let End(ByVal Value As Long)
Remarks:
The End property returns or specifies a percentage value that indicates the level of transparency at the end of a fountain transparency. Higher values indicate a greater degree of transparency.
Examples:
The following VBA example creates a rectangle and applies a radial fountain transparency to it. It then duplicates the rectangle and inverts its transparency.
Sub Test()
Dim s As Shape, s1 As Shape
Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2)
s.Fill.UniformColor.RGBAssign 255, 0, 0
s.Transparency.ApplyFountainTransparency , , cdrRadialFountainFill
Set s1 = s.Duplicate(2, 0)
s1.Transparency.Start = 100
s1.Transparency.End = 0 
End Sub