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()