API Documentation > CorelDRAW > 2025-v26 > EffectLens > IVGEffectLens
EffectLens.Rate property
Gets or sets the lens rate
Syntax:
Property Get Rate() As Long
Property Let Rate(ByVal Value As Long)
Remarks:
The Rate property returns or specifies the strength of the lens effect. Values range from 0% to 100%. The Rate property is available only for the following types of lenses: Brighten, Color add, Color limit, Fish eye, and Transparency.
Examples:
The following VBA example selects all shapes with a Transparency lens and with a transparency level greater than 80%.
Sub Test()
Dim s As Shape, eff As Effect
Dim sr As New ShapeRange
For Each s In ActivePage.Shapes
  For Each eff In s.Effects

 If eff.Type = cdrLens Then


If eff.Lens.Type = cdrLensTransparency Then


  If eff.Lens.Rate > 80 Then sr.Add s


  End If


  Exit For


End If

 Next eff
  Next s
  sr.CreateSelection

End Sub