<HTML>
<HEAD>
<!--
VBScript Spinning Text
Terrence Ma
-->

<TITLE>VBScript Spinning Text</TITLE>

<SCRIPT LANGUAGE="VBScript">
<!--
Sub IeTimer1_Timer()
if IeLabel1.Angle > -355 then
IeLabel1.Angle = IeLabel1.Angle - 5
else
IeLabel1.Angle = 0
end if
end Sub

Sub IeLabel1_Click()
IeTimer1.Enabled = Not IeTimer1.Enabled
end Sub
-->
</SCRIPT>

<SCRIPT LANGUAGE=JAVASCRIPT>
<!-- Hide script from old browsers
if (navigator.appName != "Microsoft Internet Explorer")
document.write("Your browser does not support VBScript, or VBScript is not enabled. Sorry !<BR>")
// End hiding script from old browsers -->
</SCRIPT>

<NOSCRIPT>
Your browser does not support VBScript, or VBScript is not enabled. Sorry !
</NOSCRIPT>

</HEAD>

<BODY>
<H2>
VBScript Spinning Text<BR>
Click your mouse to start and stop the spinning text<BR>
</H2>
<HR>

<OBJECT ID="IeLabel1" WIDTH="300" HEIGHT="300"
CLASSID="CLSID:99B42120-6EC7-11CF-A6C7-00AA00A47DD2"
CODEBASE="http://activex.microsoft.com/controls/iexplorer/x86/ielabel.cab#version=4,71,115,0">
<PARAM NAME="_ExtentX" VALUE="7064">
<PARAM NAME="_ExtentY" VALUE="7064">
<PARAM NAME="Caption" VALUE="Watch me spin !">
<PARAM NAME="Angle" VALUE="0">
<PARAM NAME="Alignment" VALUE="4">
<PARAM NAME="Mode" VALUE="1">
<PARAM NAME="FillStyle" VALUE="0">
<PARAM NAME="FillStyle" VALUE="0">
<PARAM NAME="ForeColor" VALUE="#0000FF">
<PARAM NAME="BackColor" VALUE="#000000">
<PARAM NAME="FontName" VALUE="Arial">
<PARAM NAME="FontSize" VALUE="25">
<PARAM NAME="FontItalic" VALUE="0">
<PARAM NAME="FontBold" VALUE="0">
<PARAM NAME="FontUnderline" VALUE="0">
<PARAM NAME="FontStrikeout" VALUE="0">
<PARAM NAME="TopPoints" VALUE="0">
<PARAM NAME="BotPoints" VALUE="0">
</OBJECT>

<OBJECT ID="IeTimer1" WIDTH="39" HEIGHT="39"
CLASSID="CLSID:59CCB4A0-727D-11CF-AC36-00AA00A47DD2"
CODEBASE="http://activex.microsoft.com/controls/iexplorer/x86/ietimer.cab#version=4,71,115,0">
<PARAM NAME="_ExtentX" VALUE="1005">
<PARAM NAME="_ExtentY" VALUE="1005">
<PARAM NAME="Interval" VALUE="60">
</OBJECT>

<HR>
<A HREF="http://www.terrence.com/vbscript/text.html.txt">Program source</A><BR>

</BODY>
</HTML>