| Name | Type | Description |
|---|---|---|
| TextureName |
String
|
|
| LibraryName |
String
|
|
| Front |
Long
|
|
| Back |
Long
|
Sub Test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) s.Fill.UniformColor.RGBAssign 0, 128, 0 s.Outline.Type = cdrNoOutline s.Transparency.ApplyTextureTransparency "Cosmic Energy", "" End Sub