API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.Rotate method
Rotates the shape by adding the amount to the current rotation value
Syntax:
Sub Rotate(ByVal Angle As Double)
Parameters:
Name Type Description
Angle
Double
Remarks:
The Rotate method rotates a shape. The center of rotation is specified by the Shape.RotationCenterX and Shape.RotationCenterY properties of the shape.
Examples:
The following VBA example creates a flower with randomly colored petals.
Sub Test()
Const NumLeafs As Long = 11
Dim pal As Palette
Dim s As Shape
Dim i As Long, NumColors As Long
Set s = Nothing
If ActivePalette Is Nothing Then
  Set pal = Palettes.Open(Application.SetupPath & "Custom\coreldrw.xml")
Else
  Set pal = ActivePalette
End If
NumColors = pal.ColorCount
For i = 1 To NumLeafs
  If s Is Nothing Then

 Set s = ActiveLayer.CreateEllipse(5, 5, 7, 6)

 s.RotationCenterX = 4

 s.RotationCenterY = 5.5
  Else

 s.Duplicate
  End If
  s.Fill.ApplyUniformFill pal.Color(Rnd() * NumColors + 1)
  s.Rotate 360 / NumLeafs
Next i 
End Sub