| Name | Type | Description |
|---|---|---|
| Hue |
Long
|
|
| Saturation |
Long
|
|
| Brightness |
Long
|
Sub LayerActive() ActiveLayer.CreateEllipse 3, 3, 2, 1 ActiveDocument.Selection.Shapes(1).Fill.UniformColor.HSBAssign 200, 100, 100 End Sub