The UniformColor property returns a Color object that represents the uniform fill of a shape. Assigning a color to UniformColor property automatically sets the fill type to cdrUniformFill.
Examples:
The following VBA example creates a yellow rectangle.
Sub Test()
Dim s As Shape
Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2)
s.Fill.UniformColor.RGBAssign 255, 255, 0
End Sub