Dim shsty2 As Style = New Style
shsty2.TargetType = GetType(Windows.UI.Xaml.Shapes.Path)
shsty2.Setters.Add(New Setter(Shapes.Path.FillProperty, scbNodeFillColor))
shsty2.Setters.Add(New Setter(Shapes.Path.StrokeProperty, scbNodeStrokeColor))
shsty2.Setters.Add(New Setter(Shapes.Path.StrokeThicknessProperty, 5))
Dim s As Style = New Style s.TargetType = typeof(Windows.UI.Xaml.Shapes.Path) s.Setters.Add(new Setter(Windows.UI.Xaml.Shapes.Path.FillProperty, new SolidColorBrush(Colors.Transparent))) s.Setters.Add(new Setter(Windows.UI.Xaml.Shapes.Path.StrokeProperty, new SolidColorBrush(Colors.Transparent))) s.Setters.Add(new Setter(Windows.UI.Xaml.Shapes.Path.StretchProperty, Stretch.Fill)) s.Setters.Add(new Setter(Windows.UI.Xaml.Shapes.Path.StrokeThicknessProperty, 5)) |