API Documentation > CorelDRAW > 2025-v26 > EffectLens > IVGEffectLens
EffectLens.ToColor property
Gets or sets the ending color for custom color map lens
Syntax:
Property Get ToColor() As Color
Property Set ToColor(ByVal Value As Color)
Remarks:
The ToColor property returns or specifies the ending color for the Custom Color Map lens. The following lens types do not accept color parameters: Brighten, Fish eye, Heat map, Invert, and Magnify.
Examples:
The following VBA example changes the color of all lenses on the page to red. For the Custom Color Map and Wireframe lenses, yellow is also used.
Sub Test()
Dim s As Shape, eff As Effect
For Each s In ActivePage.Shapes
  For Each eff In s.Effects

 If eff.Type = cdrLens Then


Select Case eff.Lens.Type


  Case cdrLensColorAdd, cdrLensColorLimit, _




cdrLensTintedGrayscale, cdrLensTransparency



 eff.Lens.Color.RGBAssign 255, 0, 0


  Case cdrLensCustomColorMap



 eff.Lens.FromColor.RGBAssign 255, 0, 0



 eff.Lens.ToColor.RGBAssign 255, 255, 0


  Case cdrLensWireframe



 With eff.Lens




.UseFillColor = True




.UseOutlineColor = True




.FillColor.RGBAssign 255, 0, 0




.OutlineColor.RGBAssign 255, 255, 0



 End With


End Select


Exit For

 End If
  Next eff
Next s 
End Sub