API Documentation > CorelDRAW > 2025-v26 > Application > IVGApplication
Application.ActiveShape property
Gets the active shape
Syntax:
Property Get ActiveShape() As Shape
Remarks:
The ActiveShape property returns the first selected shape in the active document.
Examples:
The following VBA example applies the Brighten lens to the currently selected shape.
Sub Test()
ActiveShape.CreateLens cdrLensBrighten, 50 
End Sub