works in v19 but not in v20, why?

Sub FindColorCQLC()
     Dim sr As ShapeRange

     Set sr = ActivePage.Shapes.FindShapes(Query:="@outline.color='magenta'")
           sr.SetOutlineProperties Color:=CreateRGBColor(0, 100, 0)
End Sub

Anyone know why thee above VBA code will not work in CorelDRAW2018? I've tested 32bit and 64bit on two different PCs with the same negative results

Works fine in CorelDRAW2017 and X8.

How about code that *will* work in 2018?