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.2
End Sub