Imports Leadtools.WinForms
Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.Drawing
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
             
   
     
            using Leadtools.WinForms;
using Leadtools;
using Leadtools.Codecs;
using Leadtools.Drawing;
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);
}