API Documentation > CorelDRAW > 2025-v26 > EffectLens > IVGEffectLens
EffectLens.Color property
Gets or sets the lens color
Syntax:
Property Get Color() As Color
Property Set Color(ByVal Value As Color)
Remarks:
The Color property returns or specifies the color of a lens. This property is available for the following types of lenses: Color add, Color limit, Tinted grayscale, and Transparency. 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