Dim animation As New DoubleAnimation()
With animation
.From = -300
.To = 300
.Duration = New Duration(TimeSpan.FromMilliseconds(500))
End With
Me.BeginAnimation(Window.LeftProperty, animation)