<SCRIPT language=VBScript>

<!--

Dim i

Dim Rotation

Dim Lib

Dim DRS

Dim winsizew

Dim winsizeh



Sub Window_OnLoad

i=0

Rotation=0

Call Seq("1").Play

End Sub



Sub Seq_OnInit

Call seq("1").at(0.000, "Gen", 20, 0.150, 1)

Call seq("1").at(0.000, "Rot", -1, 0.030, 1)

Call seq("1").at(3.500, "ShowMegaRecords")

Call seq("1").at(5.000, "MoveMegaRecords", 15, 0.020)

End Sub



Sub ShowMegaRecords

Mega.style.visibility="visible"

Records.style.visibility="visible"

End Sub



Sub MoveMegaRecords

Star.style.left=Star.style.posleft -25

Star.style.top=Star.style.postop - 9

Call Star.scale(.90,.9,.9)



Mega.style.left=mega.style.posleft - 19

Mega.style.top=mega.style.postop - 11

Call Mega.Scale(.95,.95,.95)



Records.style.left=Records.style.posLeft - 19

Records.style.top=Records.style.posTop - 14

Call Records.Scale(.95,.95,.95)

End Sub



Sub Gen

Set Lib=Star.Library

Set DRS=Star.DrawSurface

Call DRS.FillStyle(0)

Call DRS.LineDashStyle(1)

if i mod 2=1 then

Call DRS.BorderColor(lib.ColorRgb255(200,200,255))

Else

Call DRS.BorderColor(lib.ColorRgb255(100,100,255))

End If

Rotation=i * 18

Call DRS.PieDegrees(-120, -120, Rotation, Rotation+10 , 240, 240)

Star.DrawSurface=DRS

i=i+1

End Sub



Sub Rot

Call Star.Rotate(-4,2,-2)

End Sub



Sub Window_OnUnLoad

Call Seq("1").Stop

End Sub

-->

</SCRIPT>

<OBJECT id=Star

style="Z-INDEX: 1; LEFT: 356px; WIDTH: 303px; POSITION: absolute; TOP: 17px; HEIGHT: 282px"

height=171 width=207

classid=clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6>

</OBJECT>
<OBJECT id=mega

style="LEFT: 160; VISIBILITY: hidden; WIDTH: 350; POSITION: absolute; TOP: 14; HEIGHT: 330" classid=clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6>

<PARAM NAME="Line0001" VALUE="SetFont('Impact',100, 650, 1, 0, 0)"><PARAM NAME="Line0002" VALUE="SetLineColor(110, 255, 0)"><PARAM NAME="Line0003" VALUE="SetFillColor(255, 255, 255)"><PARAM NAME="Line0004" VALUE="SetFillStyle(1)"><PARAM NAME="Line0005" VALUE="Text('WEB', -100, 45, 0)">

</OBJECT> <OBJECT id=Records

style="LEFT: 140px; VISIBILITY: hidden; WIDTH: 400px; POSITION: absolute; TOP: 201px; HEIGHT: 100px"

height=14 width=14 classid=CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6>

<PARAM NAME="Line0001" VALUE="SetFont('Impact', 50, 700, 1, 0, 0)">

<PARAM NAME="Line0002" VALUE="SetLineColor(110, 255, 0)">

<PARAM NAME="Line0003" VALUE="SetFillColor(200, 200, 200)">

<PARAM NAME="Line0004" VALUE="SetFillStyle(0)">

<PARAM NAME="Line0005" VALUE="Text('鸿基网络部', -100, 30, 0)">

</OBJECT>

<OBJECT id=Seq height=50 width=50 align=top classid=CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96>

</OBJECT>