Private Sub viewer_AnimationModeChanged(ByVal sender As Object, ByVal e As EventArgs)
    Dim viewer As RasterPictureBox = CType(IIf(TypeOf sender Is RasterPictureBox, sender, Nothing), RasterPictureBox)
    Dim s As String = String.Format("AnimationModeChanged Event: {0}", viewer.AnimationMode.ToString())
    MessageBox.Show(s)
End Sub
Public Sub RasterPictureBox_AnimationModeChanged(ByVal viewer As RasterPictureBox)
    AddHandler viewer.AnimationModeChanged, AddressOf viewer_AnimationModeChanged

    Select Case viewer.AnimationMode
        Case RasterPictureBoxAnimationMode.Infinite
            viewer.AnimationMode = RasterPictureBoxAnimationMode.UseImageGlobalLoop

        Case RasterPictureBoxAnimationMode.UseImageGlobalLoop
            viewer.AnimationMode = RasterPictureBoxAnimationMode.Infinite
    End Select

    viewer.PlayAnimation()
    RemoveHandler viewer.AnimationModeChanged, AddressOf viewer_AnimationModeChanged
End Sub

private void viewer_AnimationModeChanged(object sender, EventArgs e)
{
   RasterPictureBox viewer = sender as RasterPictureBox;
   string s = string.Format("AnimationModeChanged Event: {0}", viewer.AnimationMode.ToString());
   MessageBox.Show(s);
}
public void RasterPictureBox_AnimationModeChanged(RasterPictureBox viewer)
{
   viewer.AnimationModeChanged += new EventHandler(viewer_AnimationModeChanged);

   switch (viewer.AnimationMode)
   {
      case RasterPictureBoxAnimationMode.Infinite:
         viewer.AnimationMode = RasterPictureBoxAnimationMode.UseImageGlobalLoop;
         break;

      case RasterPictureBoxAnimationMode.UseImageGlobalLoop:
         viewer.AnimationMode = RasterPictureBoxAnimationMode.Infinite;
         break;
   }

   viewer.PlayAnimation();
   viewer.AnimationModeChanged-= new EventHandler(viewer_AnimationModeChanged);
}