With bind style works
BindingOperations.SetBinding(myLed, Rectangle.StyleProperty, myBinding)
When create the style if hacve the resurce use DynamicResourceExtension
Dim dynamicResource = New DynamicResourceExtension(mybrush)
GetStyle.Setters.Add(New Setter(Rectangle.FillProperty, dynamicResource))