Create DoubleAnimation and Animate a Button with Button BeginAnimation and Button WidthProperty
//File:Window.xaml.vb
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Media.Animation
Public Partial Class Window1
Inherits Window
Public Sub New()
InitializeComponent()
Dim a As New DoubleAnimation()
a.From = 50
a.[To] = 100
b.BeginAnimation(Button.WidthProperty, a)
End Sub
End Class