Imports System.Windows.Media.Animation

Dim result As New Storyboard
Dim animation As New DoubleAnimation With {
　　.From = 300,　　‘起始数值
　　.EasingFunction = New PowerEase() With {.EasingMode = EasingMode.EaseInOut, .Power = 3},
　　.To = 0,　　‘结束数值
　　.Duration = New Duration(TimeSpan.FromSeconds(0.5))　　‘持续时间
　　}
Storyboard.SetTarget(animation, 控件名)
Storyboard.SetTargetProperty(animation, New PropertyPath("属性"))
result.Children.Add(animation)
result.Begin()