Sub test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) s.Style.Fill.LoadFill ("C:\Users\Public\Documents\Corel\Content X7\Fills\30 Vector Pattern 277.fill") s.Fill.Pattern.MirrorFill = True s.Fill.Pattern.OriginX = -0.2 s.Fill.Pattern.OriginY = -0.2End Sub