API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.DrapeFill property
Returns or sets whether there is a DrapeFill
Syntax:
Property Get DrapeFill() As Boolean
Property Let DrapeFill(ByVal Value As Boolean)
Remarks:
The DrapeFill property returns or specifies whether to drape the fill of a group of objects in a vector extrusion.
Examples:
The following VBA example creates two ellipses, groups them together, and applies a two-color pattern fill that flows across both objects.
Sub Test()
Dim s1 As Shape, s2 As Shape, grp As Shape
Set s1 = ActiveLayer.CreateEllipse(1.003717, 9.103496, 3.012929, 7.580724, 90#, 90#, False)
s1.Outline.Type = cdrNoOutline
Set s2 = ActiveLayer.CreateEllipse(4.683748, 6.332898, 2.103496, 8.574756, 90#, 90#, False)
s2.Outline.Type = cdrNoOutline
s1.Selected = True
Set grp = ActiveSelection.Group
With grp.Fill.ApplyPatternFill(cdrTwoColorPattern, "%%['$'UH$[UH", 0, _

 CreateCMYKColor(0, 100, 100, 0), CreateCMYKColor(0, 0, 100, 0), False)
  .TransformWithShape = False
  .TileHeight = 1
  .TileWidth = 1
  .OriginX = 0
  .OriginY = 0
End With
grp.DrapeFill = True 
End Sub