Transparency.Start

Property Start As Long

The Start property returns or sets a percentage value that indicates the level of transparency at the beginning of a fountain transparency. Higher values indicate a greater degree of transparency.

The following code 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