For Each item As MultiScaleSubImage In SubImages
  Dim i As Integer = SubImages.IndexOf(item)
  Dim n As Integer = (i + 1) Mod SubImages.Count
  Dim storyboard As New Storyboard()
  Dim el As New ElasticEase()
  el.EasingMode = EasingMode.EaseOut
  Dim easy As New EasingPointKeyFrame()
  easy.EasingFunction = el
  easy.KeyTime = New TimeSpan(0, 0, 2)
  'recupero il ViewportOrigin dell'immagine successiva
  'e lo imposto come punto di destinazione dell'animazione
  easy.Value = SubImages(n).ViewportOrigin
  Dim k As New PointAnimationUsingKeyFrames()
  k.KeyFrames.Add(easy)
  storyboard.SetTarget(k, item)
  storyboard.SetTargetProperty(k, New PropertyPath("ViewportOrigin"))
  storyboard.Children.Add(k)
  storyboard.Begin()
Next

foreach (MultiScaleSubImage item in SubImages)
{
  int i = SubImages.IndexOf(item);
  int n = (i + 1) % SubImages.Count;
  Storyboard storyboard = new Storyboard();
  ElasticEase el = new ElasticEase();
  el.EasingMode = EasingMode.EaseOut;
  EasingPointKeyFrame easy = new EasingPointKeyFrame();
  easy.EasingFunction = el;
  easy.KeyTime = new TimeSpan(0, 0, 2);
  //recupero il ViewportOrigin dell'immagine successiva
  //e lo imposto come punto di destinazione dell'animazione
  easy.Value = SubImages[n].ViewportOrigin;
  PointAnimationUsingKeyFrames k = new PointAnimationUsingKeyFrames();
  k.KeyFrames.Add(easy);
  Storyboard.SetTarget(k, item);
  Storyboard.SetTargetProperty(k, new PropertyPath("ViewportOrigin"));
  storyboard.Children.Add(k);
  storyboard.Begin();
}