Dim dauKfs As New DoubleAnimationUsingKeyFrames()
dauKfs.BeginTime = TimeSpan.FromSeconds((0))
Storyboard.SetTargetName(dauKfs, "canvas")
Storyboard.SetTargetProperty(dauKfs, New PropertyPath("(UIElement.RenderTransform).(TransformGroup.Children)[0].(ScaleTransform.ScaleX)"))
Dim sdKF As New SplineDoubleKeyFrame()
sdKF.KeyTime = TimeSpan.FromSeconds((1))
sdKF.Value = 1.2