API Documentation > CorelDRAW > 2025-v26 > EffectLens > IVGEffectLens
EffectLens.UseViewPoint property
Gets or sets whether or not to use the viewpoint
Syntax:
Property Get UseViewPoint() As Boolean
Property Let UseViewPoint(ByVal Value As Boolean)
Remarks:
The UseViewPoint property returns or specifies whether a viewpoint is used in a lens.
Examples:
The following VBA example creates a magnified view of a certain region of the drawing.
Sub Test()
Dim sText As Shape, sLens As Shape
Set sText = ActiveLayer.CreateArtisticText(0, 0, "Some Text")
sText.Fill.UniformColor.RGBAssign 255, 0, 0
Set sLens = ActiveLayer.CreateEllipse2(1.5, 1.5, 0.7)
With sLens.CreateLens(cdrLensMagnify, 3).Lens
  .UseViewPoint = True
  .ViewPointX = 0.6
  .ViewPointY = 0.08
End With
ActiveLayer.CreateEllipse2 0.6, 0.08, 0.23
ActiveLayer.CreateLineSegment 0.74, -0.1, 2.02, 1.02
ActiveLayer.CreateLineSegment 0.39, 0.15, 0.85, 1.76 
End Sub