Sub test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(3, 3, 7, 7) s.Outline.SetProperties 0.3, , CreateRGBColor(0, 0, 255), , , True, _ False, cdrOutlineRoundLineCaps, cdrOutlineBevelLineJoin, 34, 100End Sub