The following VBA example creates an extrusion and adds two light sources to it.
Sub Test()
Dim s As Shape
Set s = ActiveLayer.CreateArtisticText(2.75, 5, "Text")
With s.Text.FontProperties
.Name = "Arial Black"
.Size = 150
End With
s.Fill.UniformColor.RGBAssign 0, 0, 255
With s.CreateExtrude(cdrExtrudeSmallBack, cdrVPLockedToShape, 4, _
8, , cdrExtrudeSolidFill, CreateRGBColor(255, 0, 0)).Extrude
.LightPresent(1) = True
.LightPosition(1) = cdrLightBackTopRight
.LightIntensity(1) = 100
.LightPresent(2) = True
.LightPosition(2) = cdrLightFrontCenter
.LightIntensity(2) = 50
.LightPresent(3) = False
.UseFullColorRange = True
End With
End Sub