🚀 go-pugleaf

I'm trying to have a script in my palette to do some standard
feathering/shadowing. Everything works fine but the Feather Corner Type
which keeps defaulting to Standard. Here's what I've got:

Dim myIA
Dim myID
Dim myIP
Dim myPoly
Dim myC

 Set myIA = CreateObject("InDesign.Application.2.0")
 Set myID = myIA.ActiveDocument
 Set myC = myID.Colors.Item("Black")
  Set myPoly = myID.Selection.Item(1)
  myPoly.FillColor = myC
  myPoly.FeatherMode = idXPVMStandard
  myPoly.FeatherWidth = 9
  myPoly.FeatherCornerType = idXPVCDiffusion 'This line seems to not be
applying
  myPoly.ShadowMode = idXPSMDrop
  myPoly.ShadowBlendMode = idXPBMMultiply
  myPoly.ShadowOpacity = 25
  myPoly.ShadowXOffset = 5.76
  myPoly.ShadowYOffset = 5.76
  myPoly.ShadowBlurRadius = 9
  myPoly.ShadowColor = myC

No matter if I set the Feather to Diffusion or Rounded it keeps going back
to Sharp when I check on it. Can anyone help me?

Thanks