This is how i got my vertical split function to work.
I connect it to the clip of a canvas that must become visible.
Code Block
Dim Page as Canvas
private Sub VerticalSplitEffect
Dim c As Double = 25
Dim x As Double = Page.Width
Dim y As Double = Page.Height
Dim Cnt As Double = Math.Ceiling(x / c)
Dim G As New GeometryGroup
Dim ID As String
Dim AnimClipRegion As Geometry = Nothing
For i As Double = 0 To Cnt - 1
AnimClipRegion =
New RectangleGeometry(New Rect(0, 0, 0, 0), 0, 0) 'create new one
ID = CreateNewID()
Page.RegisterName(ID, AnimClipRegion)
G.Children.Add(AnimClipRegion)
Dim AnimationRect As New Animation.RectAnimation(New Rect(i * c, 0, 0, y), New Rect(i * c, 0, c, y), New Duration(TimeSpan.FromMilliseconds(Duration)), Animation.FillBehavior.Stop)
Windows.Media.Animation.Storyboard.SetTargetName(AnimationRect, ID)
Windows.Media.Animation.Storyboard.SetTargetProperty(AnimationRect,
New PropertyPath (RectangleGeometry.RectProperty))
StoryBoardAnimator.Children.Add(AnimationRect)
Next
Page.Clip = G
End Sub
Private Function CreateNewID() As String
On Error Resume Next
Return Guid.NewGuid.ToString("N")
End Function