VBA. How set halo properties for shape?

Hello, guys! I need your help. I want to set halo options for every shape in my layer, but  i don't know how make that with VBA.

I need use this option from code:

I try use this code, but it doesn't work correctly:

Private Sub CommandButton1_Click()

ActiveDocument.Unit = cdrPixel

For Each MyShape In ActiveLayer.Shapes
MyShape.Outline.Color.GrayAssign 0
MyShape.Outline.Width = 5
Next MyShape

End Sub

I need make halo, but not set outline params.