NET Infor

<SCRIPT LANGUAGE="VBScript">
<!--
Dim i, j, k
i = 1
j = 1
k = 1

Dim l, m, n
l = 1
m = 1
n = 1

Dim o, p, q
z = 1
p = 1
q = 1

Sub Window_onload()
	Call Seq("1").Play
	Call Seq("2").Play
	Call Seq("3").Play
End Sub

Sub Seq_OnInit()
	Call seq("1").at(0.000, "GrowIletter", 10, 0.002, 1)
	Call seq("1").at(2.000, "ShowIletter", 1, 0.002, 1)
	Call seq("1").at(3.000, "ShrinkIletter", 10, 0.002, 1)
	Call seq("2").at(2.000, "GrowEletter", 10, 0.002, 1)
	Call seq("2").at(3.000, "ShowEletter", 1, 0.002, 1)
	Call seq("2").at(4.000, "ShrinkEletter", 10, 0.002, 1)
	Call seq("3").at(3.000, "Growfourletter", 10, 0.002, 1)
	Call seq("3").at(4.000, "Showfourletter", 1, 0.002, 1)
	Call seq("3").at(5.000, "Shrinkfourletter", 10, 0.002, 1)
End Sub

Sub GrowIletter()
	If i < 10 then
		Call Iletter.Scale(1.2,1.2,0)
		Call Iletter.Rotate(1,0,0,0)
		i = i + 1
	Else
		Call seq("1").Play
		i = 1
	End If
End Sub

Sub showIletter()
	Iletter.style.visibility = "visible"
End Sub

Sub ShrinkIletter()
	If i < 10 then
		Call Iletter.Scale(.832,.832,0)
		Call Iletter.Rotate(-.1,0,0,0)
		i = i + 1
	Else
		i = 1
	End If
End Sub

Sub GrowEletter()
	If l < 10 then
		Call Eletter.Scale(1.2,1.2,0)
		Call Eletter.Rotate(0,0,0,0)
		l = l + 1
	Else
		Call seq("2").Play
		l = 1
	End If
End Sub

Sub showEletter()
	Eletter.style.visibility = "visible"
End Sub

Sub ShrinkEletter()
	If l < 10 then
		Call Eletter.Scale(.832,.832,0)
		Call Eletter.Rotate(0,0,0,0)
		l = l + 1 
	Else
		i = 1
	End If
End Sub

Sub Growfourletter()
	If z < 10 then
		Call fourletter.Scale(1.2,1.2,0)
		Call fourletter.Rotate(0,0,0,0)
		z = z + 1
	Else
		Call seq("3").Play
		z = 1
	End If
End Sub

Sub showfourletter()
	fourletter.style.visibility = "visible"
End Sub

Sub Shrinkfourletter()
	If z < 10 then
		Call fourletter.Scale(.832,.832,0)
		Call fourletter.Rotate(0,0,0,0)
		z = z + 1 
	Else
		z = 1
	End If
End Sub
//-->
</SCRIPT>
<OBJECT ID="Seq"
	CLASSID="CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96">
</OBJECT>