API Documentation > CorelDRAW > 2025-v26 > Color > IVGColor
Color.LabComponentA property
Gets or sets the LAB A color value
Syntax:
Property Get LabComponentA() As Long
Property Let LabComponentA(ByVal Value As Long)
Examples:
The following VBA example fills all shape objects with the LAB gray color and displays the LAB component A value in a message box.
Sub Test()
Dim s As Shape
For Each s In ActivePage.Shapes
  If s.Fill.Type = cdrUniformFill Then

 s.Fill.UniformColor.LabAssign 128, 0, 0
  End If
Next s
MsgBox s.Fill.UniformColor.LabComponentA 
End Sub