<SCRIPT LANGUAGE="VBScript">
<!--
Dim TimerCount

Dim Imgdir
    Imgdir = "http://buster/sbn/animgif/"

Sub Layout1_OnLoad()

Call Ld(SI1, "bgrnd1.gif")
Call Ld(SI1, "bgrnd2.gif")
Call Ld(SI1, "bgrnd3.gif")
Call Ld(SI1, "bgrnd4.gif")
Call Ld(SI1, "bgrnd5.gif")
Call Ld(SI1, "bgrnd6.gif")
Call Ld(SI1, "bgrnd7.gif")
Call Show(SI1,"bgrnd1.gif")

end sub

sub Ld (obj, pic)
set lobj = obj
lobj.LoadPictureToCache=Imgdir + pic
end sub
sub Show (obj, pic)
set lobj = obj
lobj.picture=Imgdir + pic
end sub

Sub IeTimer1_Timer()

TimerCount = TimerCount + 1

Select case (TimerCount)
    Case 1 Call Show(SI1,"bgrnd1.gif")
    Case 2 Call Show(SI1,"bgrnd2.gif")
    Case 3 Call Show(SI1,"bgrnd3.gif")
    Case 4 Call Show(SI1,"bgrnd4.gif")
    Case 5 Call Show(SI1,"bgrnd5.gif")
    Case 6 Call Show(SI1,"bgrnd6.gif")
    Case 7 Call Show(SI1,"bgrnd7.gif")
    Case 8 TimerCount = 0
End Select

End Sub
-->
</SCRIPT>
<DIV BACKGROUND="#ff0080" ID="Layout1" STYLE="LAYOUT:FIXED;WIDTH:75pt;HEIGHT:75pt;">
    <OBJECT ID="SI1"
     CLASSID="CLSID:5E3E59C4-7847-11D0-9081-0080C76A0985" STYLE="TOP:2pt;LEFT:2pt;WIDTH:37pt;HEIGHT:38pt;TABINDEX:0;ZINDEX:0;">
        <PARAM NAME="_ExtentX" VALUE="1296">
        <PARAM NAME="_ExtentY" VALUE="1323">
        <PARAM NAME="MyHeight" VALUE="50">
        <PARAM NAME="MyWidth" VALUE="49">
        <PARAM NAME="Height" VALUE="750">
        <PARAM NAME="Width" VALUE="735">
        <PARAM NAME="Picture" VALUE="bgrnd1.gif">
        <PARAM NAME="ScreenX" VALUE="4">
        <PARAM NAME="ScreenY" VALUE="5">
    </OBJECT>
    <OBJECT ID="IeTimer1"
     CLASSID="CLSID:59CCB4A0-727D-11CF-AC36-00AA00A47DD2" STYLE="TOP:2pt;LEFT:93pt;WIDTH:57pt;HEIGHT:41pt;ZINDEX:1;">
        <PARAM NAME="_ExtentX" VALUE="2011">
        <PARAM NAME="_ExtentY" VALUE="1455">
        <PARAM NAME="Interval" VALUE="500">
    </OBJECT>
</DIV>