WPF VB.Net

        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
                   Canvas.Left="96" Canvas.Top="96" 
               Width="192" Height="192"
               Stroke="Black">
        
            
                
                    
                    
                

            
        

    
    
        
            
                
                                                        Storyboard.TargetProperty="StartPoint"
                                    From="0 0" To="1 0" Duration="0:0:5"
                                    AutoReverse="True"
                                    RepeatBehavior="Forever" />
                                                        Storyboard.TargetProperty="EndPoint"
                                    From="1 1" To="0 1" Duration="0:0:5"
                                    AutoReverse="True"
                                    RepeatBehavior="Forever" />
                                            Storyboard.TargetName="brush"
                        Storyboard.TargetProperty="GradientStops[0].Color"
                        From="Red" To="Blue" Duration="0:0:1" 
                        AutoReverse="True"
                        RepeatBehavior="Forever" />
                                            Storyboard.TargetName="brush"
                        Storyboard.TargetProperty="GradientStops[1].Color"
                        From="Blue" To="Red" Duration="0:0:1" 
                        AutoReverse="True"
                        RepeatBehavior="Forever" />