Sub Test()
Dim s As Shape
Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2)
s.Fill.UniformColor.RGBAssign 0, 0, 255
s.Transparency.ApplyTextureTransparency "Water Color2 2C", ""
s.Transparency.Texture.Properties("Background:").Value = CreateRGBColor(0, 0, 0)
End Sub