The following VBA example creates a circle and adds a rectangle on top of it. It then applies a transparency to the rectangle, freezes the transparency, and moves the resulting frozen transparency group diagonally.
Sub Test()
Dim s1 As Shape, s2 As Shape
Set s1 = ActiveLayer.CreateEllipse2(0, 0, 1)
s1.Fill.UniformColor.RGBAssign 0, 128, 0
Set s2 = ActiveLayer.CreateRectangle(0, 0, 2, 2)
s2.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(255, 255, 0)
s2.Outline.Type = cdrNoOutline
s2.Transparency.ApplyTextureTransparency "Cosmic Energy", ""
s2.Transparency.Freeze
s2.ParentGroup.Move 1, 1
End Sub