<Window x:Class="WpfApplication1.Window1"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="" Height="300" Width="300">
<Window.Resources>
<Storyboard x:Key="Storyboard1">
<ParallelTimeline>
<DoubleAnimation x:Name="Animation1" Storyboard.TargetProperty="Width" From="140" To="50"
AutoReverse="True" RepeatBehavior="Forever" />
<DoubleAnimation Storyboard.TargetProperty="Opacity" To="0.5" AutoReverse="True" RepeatBehavior="Forever" />
</ParallelTimeline>
</Storyboard>
</Window.Resources>
<UniformGrid>
<Button Margin="5" Content="Method 2" Click="MyClick">
<Button.Triggers>
<EventTrigger
RoutedEvent="Button.Loaded">
<BeginStoryboard Storyboard="{DynamicResource Storyboard1}" />
</EventTrigger>
</Button.Triggers>
</Button>
</UniformGrid>
</Window>
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Media.Animation
Namespace WpfApplication1
Public Partial Class Window1
Inherits Window
Private opacityClock As AnimationClock
Private widthClock As AnimationClock
Public Sub New()
InitializeComponent()
End Sub
Private Sub MyClick(sender As Object, e As RoutedEventArgs)
Dim button2 As Button = TryCast(sender, Button)
button2.BeginAnimation(Button.WidthProperty, Nothing)
button2.BeginAnimation(Button.OpacityProperty, Nothing)
End Sub
End Class
End Namespace